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Introduction 


Il est peu habituel de se soucier de la manière dont un programme BASIC 
est exécuté par un ordinateur. 


Ce dernier n'est pourtant capable d'exécuter directement que des instruc- 
tions tout à fait élémentaires, beaucoup moins complexes qu'un FOR ou IF 
ou autres BOXF... 


Nous nous intéressons donc dans cet ouvrage à l'interpréteur, c'est-à-dire 
au programme chargé de décoder et exécuter des instructions écrites en 
BASIC. 


Nous avons choisi pour cela la très répandue version 5.0 de la société 
MICROSOFT, écrite ici pour les deux micro-ordinateurs THOMSON TO7 et 
TO7-70 et leur microprocesseur 6809. 


Après avoir présenté dans une première partie les deux TO7 et étudié en 
détail la programmation du 6809, la deuxième partie permet de 
comprendre /e fonctionnement de l'interpréteur, commun aux deux TO7. 


Les deux autres parties de cet ouvrage sont ensuite consacrées aux appli- 
cations, consistant d'abord à modifier et compléter /e BASIC d'origine, puis 
à améliorer ses performances 


VII 


Ce livre se veut à la portée aussi bien du programmeur ‘avancé ” qu'à celle 
du débutant, qui pourra dans un premier temps se consacrer aux applica- 
tions et découvrir ensuite la programmation en langage machine. 


I! poursuit un triple but: 


e But ‘pédagogique ” d'abord. sans qu'il soit question de théorie, avec la 
présentation détaillée du 6809, la méthode générale de décodage d'un 
interpréteur quelconque, la présentation de quelques notions impor- 
tantes en général méconnues du programmeur BASIC comme celles de 
portée d'une variable ou de récursivité et enfin la découverte de ce qui se 
passe ‘derrière les GOTO, /F ou FOR habituels. 


e But ‘utilitaire ensuite, avec la présentation de routines ou de 
programmes BASIC permettant de transformer l'interpréteur, tant au 
point de vue utilisation {nouvelles fonctions et instructions, procédures, 
sprites, BASIC français...) qu'à celui des performances (compilation). 


e But ‘’incitatif enfin, en donnant tous les moyens de mettre en œuvre les 
propres idées de chacun, et toutes les méthodes permettant de 
comprendre et de transformer de même qu'ici l'interpréteur BASIC d'un 
ordinateur quelconque (MO5 en particulier]. 
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Première partie 


LES TO7. LE 6899 
LE LANGAGE MACHINE 


Nous décrivons ici les principales caractéristiques des deux micro- 
ordinateurs 107 de THOMSON, ainsi que les éléments du moniteur et du 
BASIC que nous utiliserons plus tard dans la suite de ce livre: les diffé- 
rences entre TO7 et T07-70 sont particulièrement développées. 


Nous ne détaillons par contre pas les instructions du BASIC, partiellement 
décrites dans le livre d'initiation fourni avec les TO7, ou plus précisément 
dans divers ouvrages dont le manuel de référence. 


1 
Les TO7 


I. Caractéristiques générales 


Les deux ordinateurs TO7 et T07-70, apparus respectivement fin 82 et mi 
84, sont parfaitement représentatifs de ce que l'on peut attendre aujour- 
d'hui de l'informatique ‘familiale ”. 


Nous citerons par exemple : 


— Affichage en couleur: 8 pour le TO7, 16 pour le TO7-76 qui permet 
8 couleurs supplémentaires. 


— Graphisme très fin de 320 x 200 points. entièrement mixable avec du 
texte. 


— Présence d'un crayon optique permettant de dessiner sur l'écran, de 
choisir entre différentes options (menu), etc... 


— Générateur de sons sur 5 octaves. 


32 Koctets de mémoire vive directement accessibles par te BASIC 
{plus 16 K commutables, soit 48 K en tout) pour la version de base du 
TO7-70 (extensibles à 112 K)}, contre 8 K (extensibles à 24 K) pour le 
TO7. 

BASIC Microsoft extrêmement complet, utilisant parfaitement la puis- 
sance du très moderne microprocesseur 68099. 


Cartouches de programmes en mémoire morte (16 K), permettant de 
changer instantanément d'application ou de langage (BASIC, LOGO), 
assembleur...). 


Interfaces en option pour le TO7-79 permettant la digitalisation 
d'images, l'incrustation d'images vidéo et l'accès au réseau Télétel. 


Il. Le BASIC 


Le BASIC est actuellement commun aux deux TO7 ; il possède toutes les 
fonctions classiques du BASIC Microsoft dans ses versions les plus 
récentes (version 5.0): 


Ce 


Test IF... THEN..ELSE. 


Quatre types de variables, dont la double précision, les noms pouvant 
avoir 16 caractères significatifs. 


Instructions graphiques très souples: LINE, BOX, COLOR, SCREEN, 
etc... 


Instructions de gestion du stylo optique. 

Éditeur ‘plein écran”. 

Traitement des erreurs: ON..ERROR.., ERR, ERL, RESUME. 
Opérations sur les fichiers de données. 


BASIC très complet est aussi très rapide : il peut être encore amélioré 


avec l'extension disque, qui apporte de nouvelles instructions comme 
RENUM, PAINT, DRAW, CIRCLE, etc... 


II. Organisation de la mémoire 


1. Organisation générale 


Elle est la même pour les deux TO7. 


Adresses Contenu 
$dadg à $3FFF Cartouche ROM {interpréteur BASIC) : 
(4 à 16383) 16 K octets 
$4949 à $5F3F Mémoire écran; 2 fois 8 K octets 
(16384 à 24383) situés à la même adresse 
$69dg à $xxxx Mémoire RAM utilisateur : premiers 
{à partir de 24576) 1,5 K réservés au moniteur et au BASIC 
$E999 à $E7BF Pour le DOS: 1,9 K 
(57344 à 59327) 
$E7C à $E7E7 Adresses d'entrée-sortie 
(59328 à 59367) 
$E898 à $FFFF Moniteur: 6 K octets 
(59392 à 65535) 


REMARQUE: Un nombre précédé de $ désigne une adresse exprimée en 
hexadécimal (voir chapitre II! et annexes). 


Un nombre précédé de &H désignera dans toute la suite une va/eur 
hexadécimale. 


Sur le TO7 de base, la zone mémoire utilisateur se termine en 
$7FFF(32767); l'extension 16 K porte l'adresse de fin à $BFFF(49151), 
soient 24 K octets, dont 22,5 disponibles pour les programmes BASIC. 


2. Accès aux différentes banques de mémoire du TO7-7# 


Sur le T07-7, la mémoire utilisateur va jusqu'en $DFFF(57343), soient 
32 K octets (dont 39,5 disponibles pour les programmes BASIC). 


La zone située entre $AG06(40960) et $DFFF comprend en fait 2 banques 
de 16 K octets commutables par logiciel: l'extension mémoire porte ce 
nombre à 6. 


Ces différentes banques pourront par exemple être utilisées comme 
mémoires auxiliaires, au temps d'accès beaucoup plus rapide que celui 
d'une disquette, ou encore comme deuxième page d'affichage (à envoyer 
une fois ‘’remplie” dans la mémoire écran, pour créer des animations), 
etc... 


Dans tous les cas, une seule banque est accessible à un instant donné, 
mais on peut très facilement les commuter en intervenant sur le PIA 
système 6821. 


On utilisera par exemple pour cela le sous-programme en langage machine 
suivant, que l'on appellera avec la valeur V convenable placée dans le 
registre B (voir plus loin): 


COMMUT LDU # SE7CB 


LDA  ,U 

ANDA # $FB 

STA » U A + reg. de contrôle 
STB — 2,U V + reg. de données 
ORA # $94 

STA  ,U 

RTS 


La valeur V-15 correspond à la 1° banque, la valeur 23 à la seconde, 231 
à la 3°, 103 à la 4°, 167 à la 5° et 39 à la 6°. 
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Le moniteur 


Nous décrivons ici les principales routines (sous-programmes) utilisées par 
l'interpréteur BASIC, ou bien sûr par des programmes utilisateurs écrits en 
langage machine et devant effectuer des entrée-sortie: les routines corres- 
pondantes seront alors appelées par une instruction JSR. 


Bien que les moniteurs des deux TO7 ne soient pas identiques, les adresses 
des routines sont exactement les mêmes, puisque situées entre $E890 et 
$E833 où on trouve les branchements aux routines proprement dites. 


Tous les paramètres utilisés par celles-ci sont eux aussi entièrement 
compatibles, ce qui explique que les deux TO7 fonctionnent avec le même 
BASIC. 


Celui-ci n'exploite toutefois pas certaines nouvelles caractéristiques du 
T07-79 (16 couleurs, incrustation d'images vidéo); nous indiquons donc 
ici comment exploiter ces possibilités. 


L Gestion de l'écran: routine PUTCS$ 


L'affichage est de 25 lignes de 40 caractères en mode alphanumérique, et 
de 290 lignes de 320 points (groupés par 8) en mode graphique. 


On trouvera dans la seconde partie (chapitre 111) la description détaillée de 
la mémoire écran, constituée de 2 blocs distincts situés à la même adresse, 
et sélectionnés par la valeur du bit @ du registre de données du PIA 
système 6846 (adresse $E7C3). 


1. Rôle de la routine-utilisation 


La routine PUTCS, située en $E803, permet d'effectuer l'affichage de tous 
les caractères alphanumériques, y compris les accents, les caractères semi- 
graphiques et les caractères utilisateurs; tous les mouvements du curseur 
sont possibles. 


Elle permet aussi de gérer tous les attributs d'écran: positionnement de la 
fenêtre, couleur de la forme, du fond et du tour. taille des caractères, type 
du défilement (scrolling), masquage, mise en mode incrustation pour le 
T07-70. 


Cette routine est utilisée par les instructions BASIC suivantes: 


— PRINT: écriture de tous les caractères alphanumériques 
—  LOCATE: positionnement du curseur, qui peut-être rendu invisible 


— CONSOLE: définition de la fenêtre, type du défilement (avec où sans 
couleur, normal, doux où en mode page) 


— SCREEN: couleurs de la forme, du fond ou du tour, qui peuvent être 
inversées 


— ATTRB: taille des caractères, qui peuvent être masqués 
—  UNMASK: démasquage des caractères masqués. 


Nous ne détaillerons donc pas l'emploi de la routine pour toutes les opéra- 
tions ci-dessus, effectuées plus commodément à partir du BASIC. 


2. Cas du TO7-7# 


Le BASIC ne permet pas pour le T07-70 l'accès aux couleurs pastels et la 
mise en mode incrustation. 


Pour colorer la forme, le fond ou le tour en une couleur pastel, il faudra 
donc exécuter la séquence suivante, écrite en langage machine (voir 
chapitre IV): 


COLOR LDB # $1B 


JSR $E893 Séquence ‘d'échappement’ 
LDB # Valeur 
ISR $E893 2° appel 


“Valeur” comprise entre: 


— &H78 et &H77: modification de la couleur de la forme 
— &H78 et &H7F: modification de la couleur du fond 
— &H8f et &H87: modification de la couleur du tour de l'écran. 


La valeur exacte à transmettre à PUTC$ sera obtenue en ajoutant à &H7@ 
ou &H78 ou &H89 un des nombres suivants: 


gris 

rose 

vert clair 
sable 
bleu clair 
parme 
bleu ciel 


Ji it it tt 


NO RON = © 


orange 


REMARQUE: les valeurs de &H40 à 47, &H5G à 57 et &H60 à 67 provo- 
queront la modification des mêmes éléments dans une couleur normale, et 
ce pour les deux TO7. 


Enfin, le T07-70 sera mis en mode incrustation (si l'extension est présente) 
par la séquence: 


INCRUS LDB # $1B 


JSR $E893 Sequence ‘d'échappement 
LDB # $6D 
JSR $E893 2° appel 


On pourra alors superposer une image vidéo issue d'une source extérieure 
(télévision, magnétoscope, caméra) avec une partie d'écran, la couleur 
noire devenant ‘transparente ‘. 


Enfin, la valeur &H6C (au lieu de &H6D) permettra de supprimer 
l'incrustation. 


Il. Le clavier 


Le clavier est organisé de manière matricielle ; le décodage des touches est 
effectué grâce au PIA système 6821. 


Le port B (programmé en sortie) situé à l'adresse $E7C9 fait passer l'une 
après l’autre chaque ligne à @: si une touche de la ligne est enfoncée, la 
valeur lue sur le port À (programmé en entrée) situé en $E7C8 est diffé- 
rente de &HFF, ce qui permet le décodage de la touche. 


Nous verrons dans la quatrième partie de ce livre une routine permettant 
de décoder simultanément plusieurs touches appuyées en même temps, ce 
qui n'est pas possible avec les routines du moniteur. 


1. Routine de lecture rapide: KFST$ 


Cette routine, située en $E809, teste si une touche est enfoncée, sans 
décodage de celle-ci: le bit C du registre CC du 6809 est alors positionné à 
1. 


Lors de l'exécution d'un programme BASIC, cette routine est appelée à 
chaque nouvelle instruction exécutée (voir 2° partie) : si elle retourne € :1, 
la touche est décodée par GETCS$ et le programme arrêté s'il s’agit de 
STOP ou CNT/C. 
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2. Décodage du clavier: routine GETC$ 


Cette routine, située en $E806, retourne dans l'’accumulateur B du 6809 le 
code ASCII de la touche enfoncée, génère un “bip” sonore et gère la répé- 
tition des touches. 


Elle est utilisée par les instructions BASIC de lecture du clavier, c’est-à-dire 
INKEYS$ et INPUT. 


REMARQUE: la fonction INKEYS du BASIC TO7 retourne le dernier carac- 
tère frappé au clavier lors de l'exécution des instructions précédentes, 
même s'il ne l'est plus au moment de la lecture: on devra donc dans 
certains cas appeler un INKEYS$ “vide” pour effacer le registre $65B1 
mémorisant ce caractère (voir 2° partie). 


II. Affichages graphiques 


Les deux routines PLOTS (située en $E80F) et DRAWS (située en $E80C) 
permettent respectivement d'afficher un point ou un caractère et de tracer 
une droite. 


Elles sont utilisées par toutes les instructions graphiques du BASIC, c'est- 
à-dire PSET, LINE, BOX et BOXF. 


1. Routine PLOTS$ 


Si le registre CHDRAW situé en $6041 est mis à @, la routine affiche le 
point de coordonnées contenues dans les registres X (colonne, de @ à 319) 
et Ÿ (ligne, de @ à 199) du 6809. 


La couleur du point doit être placée dans le registre FORME situé en 
$6038 : sa valeur doit être comprise entre — 8 et + 7 pour le TO7 et — 8 à 
+ 15 pour le T07-70. 


Une valeur positive correspondra à un point de “forme” {bit correspondant 
mis à 1 dans la mémoire de forme: voir 2° partie) et une valeur négative à 
un point de ‘fond’ (bit mis à O). 
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Les codes des couleurs forme” sont les suivants: 


noir 
rouge 
vert 
jaune 
bleu 
magenta 
cyan 


JO À W ND = © 


blanc 


Pour le TO7-70, il existe huit codes supplémentaires : 


gris : 8 
rose 4 0, 
vert clair : 10 
sable 5 11 
bleu clair 2 
parme PL PE | 
bleu ciel : 14 
orange T5; 


Dans les deux cas, un code de couleur “fond” sera obtenu en prenant 
l'inverse du code ‘’forme” diminué de 1: — 1 correspond au noir, — 2 au 
rouge, etc. 


Si le registre CHDRAW contient un nombre C positif, le caractère de code 
ASCII C sera affiché en (X,Y), avec X compris entre 1 et 49 et Y entre Det 
24: les couleurs de fond et de forme seront alors celles du registre 
COLOUR situé en $603B. 


On peut aussi écrire directement un caractère par un appel de la routine 
CHPLS située en $E833. 


2. Routine DRAWS$ 


Les conventions sont les mêmes que celles de la routine PLOTS: la routine 
trace un segment de droite entre le dernier point allumé (registres PLOTX 
et PLOTY situés en $603D et 603F) et le point de coordonnées (X,Y). 
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Si CHDRAW est différent de @, le segment tracé le sera sous forme de 
caractères. 


REMARQUE: Pour le TO7-76, le bit 4 du registre STATUS situé en $6019 
doit être mis à @: dans le cas contraire, la mémoire ‘’ couleur” ne sera pas 
modifiée. 


IV. Autres routines-registres du moniteur 


On trouvera en annexe la liste complète des routines du moniteur, permet- 
tant d'effectuer toutes les opérations fondamentales: lecture du cryaon 
optique, génération de musique, entrée-sortie sur cassette, etc. 


Toutes ces opérations seront réalisées beaucoup plus commodément à 
partir du BASIC; le détail des procédures à suivre pour un fonctionnement 
correct de ces routines ne sera donc pas décrit ici. 


On trouvera aussi en annexe les adresses et le rôle des principaux registres 
du moniteur, tous situés à partir de l'adresse $6000 (page O du moniteur). 


Tous ces registres sont bien sûr accessibles par le BASIC (instruction 
POKE), ce qui permet diverses interventions. 


Sur le TO7-70, on pourra par exemple redéfinir entièrement les touches du 
clavier; on placera pour celà dans le registre PTCLAV situé en $6@CD 
l'adresse d'une table (créée en BASIC sous la forme d'une chaîne de carac- 
tères) contenant les nouveaux codes ASCII des touches. 


On pourra de la même manière redéfinir les caractères affichés sur l'écran; 
l'adresse du nouveau générateur de caractères sera placée pour celà dans 
le registre PTGENE situé en $60CF. 
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Le 6899 


Les deux ordinateurs TO7 de THOMSON sont concus autour du très puis- 
sant micro-processeur 6809 de MOTOROLA. 


Il s’agit en effet d'un micro-processeur 8 bits (bus de données à 8 lignes) 
capable de traiter des valeurs sur 16 bits (micro-processeur "pseudo 
16 bits”). 


Il bénéficie de tous les progrès récents en matière de micro-processeurs : 
richesse des modes d'adressage, banalisation des registres internes, struc- 
ture quasi orthogonale (la plupart des instructions fonctionnent avec tous 
les modes d'adressage), multiplication, etc... 


1. Système binaire-codage hexadécimal 


On sait que les ordinateurs ne peuvent utiliser que les valeurs @ ou 1, 
appelées ‘bits”. 
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Un ensemble de 8 bits constitue un ‘’octet”’, qui est l'information de base 
manipulable par un micro-processeur 8 bits. 


Un octet permet de coder 25 = 256 valeurs différentes, qui pourront repré- 
senter une valeur numérique sur 8 bits, un caractère alphanumérique codé 
en ASCII (voir annexes), un code d'instruction, une partie d'adresse 
(toujours codées sur 16 bits), etc... 


Exemples : 


19119119 — 1x27+1x25+1x24:1x2241x21 — 182 


La méthode la plus efficace pour noter le contenu d'un octet consiste à 
l'écrire en hexadécimal (base 16 et non 19 comme habituellement): la 
valeur sera alors représentée par deux chiffres hexadécimaux, codant 
chacun 4 bits. 


Le codage est le suivant: 


Chiffre hexadécimal Valeur binaire Valeur décimale 

() 0000 (1) 
1 0001 1 
2 0010 2 
3 9011 3 
4 0100 4 
5 9101 5 
6 @110 6 
7 @111 7 
8 1000 8 
9 1991 9 
A 1919 14 
B 1911 11 
C 1100 12 

| D 1191 13 
E 1119 14 

CR: 1111 il 15 

Exemple: 


19119119 &HB6 
&HES - 11199191 
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Arithmétique binaire : 


Pour pouvoir représenter une valeur négative, on convient toujours que le 
bit de gauche, dit de ‘poids fort” car correspondant à 27, représente le 
signe de la valeur. 


Une valeur négative est alors représentée en ‘complément à 2": la valeur 
absolue est complémentée bit à bit et on ajoute 1 (on peut aussi en hexa- 
décimal retrancher la valeur absolue de &H106, ce qui revient au même). 


Exemple : 
58-&H3A= -58- &HC6 


(voir annexe) 


Dans le cas d'une valeur codée sur 2 octets, c'est le bit de poids fort du 
1%" octet qui représente le signe. 


Exemples : 
14621 _&H391D=——-14621-&C6E3 


Une soustraction sur 8 bits est toujours effectuée en prenant le complé- 
ment à 2 du 2° opérande, que l'on ajoute au 1“. 


Une valeur positive et une valeur négative s'ajoutent ‘normalement. 
Exemple: &H5C+&HC6-&H22, soit 92-58-34 


en effet: 91911199 + &H5C 
+ 11900118 + RHC6 


9188819 —+ g&H22 


&H1B+&HC6--&HE1, soit 27-58 31 


Exemple: &H1B+&HC6 &HE1, soit 27- 58 —31 
REMARQUE: le micro-processeur positionne certains indicateurs (retenue C 
et débordement V en particulier) à chaque opération effectuée. 


On emploiera donc des branchements ‘signés’ pour s'assurer de la vali- 
dité des résultats obtenus en complément à 2. 


On effectuera par contre des branchements non signés” si on ne s'inté- 
resse qu'aux valeurs absolues des résultats. 


16 


Il. Les registres internes 


Toutes les opérations élémentaires que le micro-processeur est capable 
d'effectuer, le sont grâce aux neuf registres internes suivants: 


15 7 (r] 
Accu A | Accu B Accumulateur D 
X Registre d'index X 
|: * Registre d'index Y 
U Pointeur de pile U 
S Pointeur de pile S 
L | Registre de page directe DP 
Le (| | ! | vi z V ce Registre de codes condition 
Registre compteur de programme PC 


1. Les accumulateurs 


Les accumulateurs permettent d'effectuer toutes les manipulations de 
données et tous les calculs arithmétiques ou logiques; il s'agit donc des 
registres les plus souvent utilisés. 


Les deux accumulateurs 8 bits À et 8 peuvent être juxtaposés en un seul 
accumulateur D de 16 bits: les deux accumulateurs A et B normalement 
indépendants forment alors un tout, À représentant les poids forts (bits 8 à 
15) et B les poids faibles (bits @ à 7). 


La plupart des opérations classiques sont réalisables avec l'accumula- 
teur D, d'où bien sûr un gain de place et de rapidité par rapport à un micro- 
processeur 8 bits classique. 
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2. Les registres d’index X et Y 


Ce sont des registres 16 bits permettant essentiellement de pointer des 
données en adressage indexé. 


On peut aussi les utiliser pour effectuer des opérations arithmétiques. 


3. Les pointeurs de pile U et S 


Lorsqu'un programme appelle un sous-programme, le micro-processeur 
doit conserver quelque part en RAM l'adresse où il faudra revenir après 
l'exécution du sous-programme ; il en est de même en cas d'interruption, 
où certains registres doivent aussi être conservés. 


Ceci est toujours réalisé au moyen d'une pile système: seule la dernière 
valeur empilée, pointée par le registre S, est accessible (fonctionnement du 
type ‘last in, first out"). 


Le fonctionnement de la pile utilisateur U est exactement le même. 


En cas d'empilement d'une nouvelle valeur ou adresse, le pointeur est 
d'abord décrémenté, nuis il y a empilement. 


Le dépilement s'effectue en sens inverse : la valeur située au sommet de la 
pile est dépilée dans le registre spécifié (PC dans le cas de RTS), puis le 
pointeur est incrémenté. 


S et U pointent donc toujours sur /a valeur située au sommet de la pile. 


REMARQUE 1 : dans le cas où on empile un registre 16 bits, c'est d'abord 
l'octet de poids faible qui est empilé, puis celui de poids fort: les deux 
octets sont donc placés en mémoire dans l'ordre logique, c'est-à-dire poids 
fort en «a et faible en a + 1, « étant contenu dans S (ou U). 


REMARQUE 2 : les registres U et S ont exactement les mêmes possibilités 
d'adressage indexé que X et Y. 


4. Le registre de page directe DP 
Ce registre 8 bits permet de placer la ‘page @" n'importe où dans la 


mémoire : on peut ainsi faire de l'adressage “direct ”, toujours plus rapide 
et plus concis que l'adressage absolu” normal. 
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5. Le registre de codes condition CC 


Il s'agit d'un registre d'état de 8 bits, modifié à chaque instruction exécutée 
par le micro-processeur. 


7 6 5 4 3 2 1 [eo] 


Les bits @. 1, 2, 3 (et 5) correspondent aux indicateurs arithmétiques, les 
plus souvent employés. 


a} bit C (‘carry ": retenue) 


Ce bit est positionné par toutes les opérations arithmétiques;: il prend la 
valeur de la retenue dans le cas d'une addition (ADC, ADD), et celle du 
complément de la retenue dans le cas d'une soustraction (CMP, SBC, 
SUB). 


Exemples :&H5C+&HC6 — C1 . 
&H5C-&H3A —+ C = (car 5C — 3A = 5C + C6 + retenue — 1) 


b} bit V (‘Overflow”: débordement en complément à 2) 


Ce bit est mis à 1 lorsqu'une opération donne lieu à un débordement, c'est- 
à-dire lorsque la retenue des bits 6 (plus fort poids des valeurs signées) 
n'est pas la même que celle des bits 7 (bits de signe). 


Exemples : 


&H5C+8&HC6-&H22 —+ V - # car les deux retenues sont egales à 1: 
pas de problème 


&HBC+&HCb + V 1] 


débordement ; le résultat (&H52) est faux (en effet, — 116 — 58 = — 174, 
qui n'est pas représentable en complément à 2 sur 8 bits). 


c} bit Z (zéro) 
Il est mis à 1 si le résultat d'une opération (ou d'un chargement, où d'un 
stockage, etc...) est nul: 


Exemple: 


CERA (‘clear A: ÿ+A) —» Z 1 
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d} bit N ("Négative ”: résultat négatif) 
Il représente le bit de poids fort du résultat de la dernière opération. 


Il est donc mis à 1 dans le cas d'un résultat négatif, c'est-à-dire supérieur 
ou égal à &H80 en valeur absolue. 


e} bit H (‘Half carry”: demi retenue) 


ll permet au 6809 d'effectuer des opérations directement en décimal: il est 
en effet positionné à 1 dès que le nombre présent sur les 4 bits de poids 
faible est supérieur à 9. 


f} bits 1 et F {‘Interrupt mask” et ‘Fast interrupt mask”: masques 
d'interruption/ 


Lorsqu'ils sont mis à 1 (instruction ORCC), les interruptions normales IRQ 
et les interruptions rapides FIRQ (sauvegarde dans la pile des seuls PC et 
CC) sont masquées, c'est-à-dire ignorées. 


g} bit E f''Entire state ”: pile complète) 


En cas d'interruption, et lcrsqu'il est à 1, tous les registres du 6809 ont été 
sauvegardés dans la pile (interruption IRO). 


6. Le registre compteur de programme PC 
Il s'agit du compteur ordinal, qui pointe en permanence sur /a prochaine 
instruction à exécuter. 


Ce registre est utilisable comme index, ce qui permet par exemple d'écrire 
des programmes entièrement translatables. 


II. Les modes d’adressage 


Le 6899 possède six principaux modes d'adressage, ce qui lui confère une 
très grande puissance logicielle. 


Dans tous les cas, les octets spécifiant l'adresse suivent le code opération, 
lui même codé sur 1 ou 2 octets. 
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1. Adressage inhérent ou implicite 


Il n'y a alors pas de partie adresse puisque le code d'instruction se suffit à 
lui-même. 


Exemple: 


INCA : A+ — À 

CLRB : #9 —B 
Dans le cas des instructions d'échange et de transfert de registres (EXG et 
TFR), ou d'accès aux piles (PSH, PUL), l'octet spécifiant le code opération 


doit être toutefois suivi d'un ‘’post-octet indiquant les registres concernés 
(voir plus loin). 


2. Adressage immédiat 


La valeur à utiliser immédiatement suit le code opération: selon ce dernier, 
elle occupera 8 bits (LDA, CMPB, etc...) ou 16 bits (LDX, CMPY, ADDD, 
etc...). 


La notation normalisée d'une valeur immédiate est le dièse (#), en principe 
suivi d'un dollar ($) signalant une valeur hexadécimale (notation 
assembleur"). 


Exemple: Notation assembleur: LDX #$839E 
Valeurs en mémoire:  8E/83/9E 


3. Adressage direct 


Les 8 bits de poids fort de l'adresse de la valeur à traiter sont contenus 
dans le registre de page directe DP; l'adresse est donc codée sur 1 seul 
octet représentant les 8 bits de poids faible. 
Ce mode d'adressage est toujours plus rapide que l'adressage étendu 
Exemple: Notation assembleur: STD $1 

Valeurs en mémoire:  DD/1C 
Si DP contient &H61, l'accumulateur D sera envoyé en $611C (A) et 
$6110 (B). 


REMARQUE : Le registre DP ne peut être chargé que par une instruction EXG 
ou TFR (ou PUL). 
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4. Adressage étendu 


C'est l'adressage le plus classique : l'adresse est codée sur 2 octets spéci- 
fiant l'emplacement de la mémoire où se situe la valeur à traiter. 


Exemple: Notation assembleur: DEC $64FE 
Valeurs en mémoire : 7A/64/FE 


La valeur située en $60FE est diminuée de 1. 


5. Adressage relatif 


il est utilisé uniquement dans les opérations de branchements relatifs 
{(BRA, LBEO., BSR. etc...), réalisées le plus souvent après un test (BIT, CMP, 
TST). 


L'adresse est ici égale à un déplacement positif ou négatif à ajouter au 
contenu du compteur de programme PC pour obtenir l'adresse effective du 
branchement. 


Un déplacement codé sur 1 octet permettra d'avancer de 127($7F) octets 
ou de reculer de 128($80) octets au maximum ; il s’agit alors d'un branche- 
ment relatif court (BEQ, BRA, etc...). 


Au-delà, on utilisera un branchement relatif long (mnémonique précédé de 
"L'": LBRA, LBSR, etc...) ; le déplacement est alors codé sur 2 octets. 


REMARQUE: lors de l'exécution de l'instruction de branchement, le PC 
pointe sur le début de l'instruction suivante; c'est donc à cette adresse qu'il 
faut ajouter le déplacement. 


Celui-ci sera bien sûr codé en mode complément à 2 pour une valeur néga- 
tive : voir annexes. 


Exemple: Soit les instructions suivantes, implantées à partir de $8000. 


6090 39 RTS 

6991 96 58 LDA $58 
8493 27 #5 BEQ +5 
8995 2B F9 BMI —7 
887 BD 35EB JSR 35EB 
899 A … SUITE... 


Si $58 (adressage direct) contient @, il y aura branchement en $8005 + 5 
= $800A — SUITE. 
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Si $58 est négatif (bit 7? — 1), il y aura branchement en $8007 — 7 
— $8000, c'est-à-dire au RTS. 


Si $58 contient une valeur comprise entre 1 et &H7F, il y aura exécution 
du sous-programme $35EB (adressage étendu), puis passage à SUITE. 


6. Adressages indexés 


It s'agit du mode d'adressage le plus puissant du 6809. 


Le principe est que dans la partie adresse de l'instruction est toujours 
spécifié un index (appelé ‘’base‘”) et un déplacement. 


L'adresse effective est alors égale au contenu de l'index augmenté du 
déplacement (éventuellement négatif). 


Exemples: LDA 4,X: si X contient $81E9, c'est la va/eur contenue en 
$81ED, soit $3F par exemple, qui sera chargée dans l'accumulateur A. 


LEAU — 5,X: c'est /'adresse $81E4 qui sera chargée dans U. 


Dans le cas du 6809, le déplacement peut être constant (nul, ou codé sur 
5, 8 ou 16 bits) ou variable (contenu d'un accumulateur À, B ou D}: les 
index peuvent être indifféremment X, Y, U, S et PC, l'emploi de ce dernier 
autorisant par exemple de faire de l'adressage relatif indirect par rapport au 
PC (permettant d'écrire des programmes entièrement translatables)... 


Îl est possible aussi de faire des auto-incrémentations où décrémentations 
de l'index de 1 ou 2 {le déplacement doit alors être nul} et de l'adressage 
indirect : l'adresse effective est alors l'adresse contenue à l'adresse obtenue 
par index + déplacement (écrit entre crochets). 


Dans tous les cas, l'option choisie est déterminée par le ‘post-octet ” 
suivant le code operation, lui-même suivi éventuellement de 1 ou 2 autres 
octets spécifiant le déplacement. 


On trouvera en annexe le tableau complet de tous les cas possibles, 
permettant de déterminer le post octet. 


Exemples : 

LDA ,$$S +  A6/E4 : Valeur situee au sommet de la pile — A 
LDA 2,X «1 A6/1E : Deplacement 2 code sur 5 bits 

LDA 28,U + A6/CB 14 : Deplacement + 2 code sur 8 bits 

LDA BY + A6/A5 : Déplacement contenu dans B 
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LDA X\++— A6 8f : Deplacement nul; post-incrementation de 1 


[DA , Y A6 A3 : Pre-décrémentation de 2; déplacement nul 
[DA [589191 A6 97 8919 : Contenu der1A,$8914 et $8#11 contenant 
LDA [2S}— A6 F8 2 : Valeur située à l'avant derniere adresse pla- 


» cee dans la pile S A 


IV. Le jeu d'instructions 


Il se compose de 59 instructions fondamentales (se ramenant en fait à 56), 
permettant en fonction des registres utilisés et du mode d'adressage plus 
de 1400 combinaisons différentes ! 


On trouvera en annexe les tavleaux décrivant toutes les instructions du 
6899: mnémonique, code hexadécimal, nombre de cycles nécessaire pour 
l'exécution (1 cycle — 1 us. pour le 6809 des TO7), nombre total d'octets 
de l'instruction, action de l'instruction, bits du registre CC affectés. 


Nous ne donnerons donc ici que les significations des mnémoniques 
{anglais bien sûr; et quelques compléments sur certaines instructions. 


1. Les instructions 


Fes Ee TG Vo à 1 
Instruction Description 
| + 7 | 
ABX Addition de B (8 bits non signés) à X + X 
ADC Addition avec retenue C 
ADD Addition B ou 16 bits 
AND ET logique (bit à bit) 
ASL Décalage arithmétique à gauche d'un bit 
ASR Décalage arithmétique à droite (bit 7 conservé) 
BIT Test de bit: effectue un ET. sans modifier l'accu. 
CLR Mise à @ (clear) 
CMP Comparaison: effectue une soustraction, sans modifier le 
registre 
COM Complément bit à bit: 1 > FE, etc. 
CWAI Attente d'interruption: effectue un ET avec le CC 
DAA Ajustement décimal de A (en 2 chiffres DCB) 
DEC Décrémentation de 1; 1 + V si valeur initiale — &H80 
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Instruction 


EOR 
EXG 
INC 
JMP 
JSR 
LDx 
LEA 


LSL 
LSR 
MUL 
NEG 
NOP 
OR 
PSH 
PUL 
ROL 
ROR 
RTI 
RTS 
SBC 
SEX 
STx 
SUB 
SW! 
SYNC 
TFR 
TST 


Description 


OÙ exclusif (bit à bit: 1, 1 — @) 

Échange de registres (de même taille) 
Incrémentation de 1: 1 -V si valeur initiale — &H7F 
Saut inconditionnel (jump) 

Saut à un sous-programme:; PC - pile S 

Chargement du registre x (load) 

Chargement d'une adresse effective(et non du contenu comme 
par LD) en adressage indexé 

Décalage logique à gauche de 1 bit (logical shift left) 
_ Décalage logique à droite (right) de 1 bit 
Multiplication non signée de A par B + D 

| Complément à 2: 1 FF — — 1, etc. 

: Pas d'opération 

OÙ logique (bit à bit) 

| Empilement de registres (push): S décroit 
Dépilement de registres (pull): S augmente 

Rotation à gauche (avec C) de 1 bit 

| Rotation à droite (avec C) de 1 bit 


Retour d'interruption; restauration des registres 
Retour de sous-programme (restauration du PC) 
Soustraction avec retenue C 

Extension du signe de B à l'accumulateur D 
Stockage du registre x en mémoire 

Soustraction 

| Interruption logicielle (sauvegarde des registres) 
Synchronisation avec un événement extérieur 
Transfert de registres (de même taille) 

Test par rapport à @ sur des valeurs non signées 
Enr ä 


REMARQUE : Les instructions ASL et LSL sont en fait identiques. 


2. Les branchements relatifs 


r 
lBranchement 


f ——— = 

IBCC.LBCC 
|BCS.LBCS 
:BEQLBEQ 
‘BGE.LBGE 


| 


Description 


Branchement si C  @ (carry clear) 

Branchement si C - 1 (carry set) 

Branchement si égal c'est-à-dire Z — 1 (eaual) 
Branchement si supérieur ou égal (signé: branche si N - V 
| c'est-à-dire si résultat valide et positif ou nul) 
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Branchement Description 


BGT.LBGT Branchement si supérieur (signé: branche si NV et Z — @) 


BHI,LBHI Branchement si supérieur, c'est-à-dire C = @ et Z — @ (higher) 

BHS,LBHS Branchement si supérieur ou égal, c'est-à-dire C — Q (higher or 
same) 

BLE.LBLE Branchement si inférieur où égal (signé: branche si Z = 1 ou 


N # V, c'est-à-dire si résultat valide et négatif ou nul) 
BLO,LBLO Branchement si inférieur, c'est-à-dire C = 1 (lower) 


BLS.LBLS Branchement si inférieur ou égal, c'est-à-dire C ou Z — 1 (lower 
or same) 

BLT.LBLT Branchement si inférieur (signé: branche si N # V) 

BMI.LBMI Branchement si négatif, c'est-à-dire N — 1 (minus) 

BNE LBNE Branchement si différent, c'est-à-dire Z = @ (not equal) 

BPL,LBPL Branchement si positif, c'est-à-dire N = O, ou encore valeur 
< &H7F 


BRA.LBRA Branchement inconditionnel (branch always) 

BRN.LBRN Ne branche jamais (branch never); créé par opposition à BRA 
BSR.LBESR Branchement à un sous programme (subroutine) 

BVC.LBVC Branchement si pas de débordement en mode complément à 
2, c'est-à-dire V = @ 

BVS.LBVS Brancheinent si débordement, c'est-à-dire V — 1 (V set) 


REMARQUE : les branchements BCC et BHS (et LBCC et LBHS) sont en fait 
identiques, ainsi que BCS et BLO (et LBCS et LBLO). 


3. Compléments 


a)Instructions EXG et TFR 


Elles permettent respectivement l'échange et le transfert de registre à 
registre. 


Le code opération (1E et 1F) est suivi d'un post-octet spécifiant les 
registres concernés; le 1° chiffre hexadécimal (bits de fort poids) repré- 
sente le 1°’ registre R1, le 2° (faible poids} le registre R2 de destination 
(pour TFR). 
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Le codage est le suivant: 


Code {hexa) Registre 


œ > (© © 01 R © NN = © 


Exemples : 


TFR S,X =— 1F/41: S envoyé dans X 
EXG U,D— 1F/39: U et D permutés 
b} Instructions PSH et PUL 
Elles permettent d'empiler ou de dépiler des registres. 


Le code opération (&H34 à 37) est suivi d'un post octet spécifiant les 
registres concernés ; chaque bit correspond à un registre, qui sera empilé 
ou dépilé s'il a la valeur 1. 


7 F _9 


Post octet: | PC | U/S 


Exemple: 


PSHS Y,X,A = 34/32 


Les registres sont toujours empilés dans l'ordre PC,U/S....CC: le dépile- 
ment s'effectue en sens inverse. 


S ou Ü ne peuvent être empilés dans leur propre pile: c'est donc U qui est 
empilé par PSHS, et S par PSHU. 
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cJinstruction SW! 


Elle permet de réaliser des interruptions logicielles ; elle est donc utilisée le 
plus souvent pour effectuer des arrêts sur adresse pour la mise au point de 
programmes. 


L'instruction SWI provoque l'arrêt du programme en cours: tous les 
registres (sauf S) sont sauvegardés dans la pile système S et il y a branche- 
ment à l'adresse contenue en $FFFA et FFFB. 


Les instructions SWI2 et SWI3 fonctionnent de manière identique (ce 
sont les interruptions les moins prioritaires); les vecteurs d'interruption 
sont situés respectivement en $FFF4 et $SFFF2. 


Dans le cas des deux TO7, et pour l'instruction SW, l'adresse contenue en 
$FFFA est celle d'une instruction JMP [$6@2F]:; il suffit donc de placer 
dans le registre SWI1 du moniteur, situé en $6@2F, l'adresse du sous- 
programme de traitement de l'interruption (qui écrira par exemple le 
contenu de la pile pour visualiser les registres): ce sous-programme se 
terminera par RTI. 
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4 
Le langage machine 


Le moyen le plus commode pour programmer en langage machine consiste 
bien sûr à utiliser un assembleur, permettant entre autres l'emploi des 
mnémoniques pour les instructions, l'écriture a’adresses symboliques, etc... 


Ceci est exclu dans notre cas, puisque nous désirons utiliser le BASIC et 
que celui-ci ne peut coexister avec l’assembleur dans le cas des TO7. 


Nous allons voir qu'il est cependant reiativement simple de créer à partir du 
BASIC des programmes écrits en langage machine. 


Le problème inverse se pose pour étudier un programme tel que l'interpré- 
teur ou le moniteur ; nous présentons donc un programme BASIC permet- 
tant de ‘’désassembler” du langage machine. 
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1. Implantation d’un programme 


1. Méthode générale 


Nous donnerons dans la troisième partie de cet ouvrage un programme 
permettant d'implanter n'importe Où en mémoire en nombre quelconque 
de routines, et celà de la manière la plus souple et la plus “lisible” possible 
{un nom pour chaque routine, adresses écrites en un seul mot, etc...). 


Pour de petites applications, il est parfaitement suffisant d'employer les 
quatres instructions suivantes : 


14 CLEHF. £H7FHA ‘Memoire Frotenee a Fartir de SrFH1 
28 FOF I=£2H Fi TO SHÉFFF 

At FEHL H$&:IF H$::"FIH" THEH FÜÉE I, YALE "EH"4RS HET 
LA CHTH ‘Liste des codes, terminées Far FIH 


On écrira alors en 1000 les codes hexadécimaux correspondant au 
programme, octet par octet, en les séparant par des virgules. 


On enregistrera toujours sur cassette ou disquette le programme ci-dessus 
avant de faire exécuter le programme en langage machine: en effet, en cas 
d'erreur dans celui-ci, le résultat est dans la plupart des cas un blocage 
complet de la machine, obligeant à couper le courant, d'où bien sûr perte 
du programme. 


REMARQUES : CLEAR,a protège la zone de mémoire située à partir de a + 1, 
qui contiendra le programme en langage machine. 


En effet, la fin de la RAM est utilisée par le BASIC (entre autres pour les 
chaînes de caractères et la pile), qui pourrait donc sans celà écraser” le 
programme. 


On notera aussi l'usage d'une variable chaîne (A$) pour charger les codes 
hexadécimaux, ce qui permet de ne pas écrire dans le DATA le fastidieux 
&H à chaque valeur. 
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2. Exemple 


Soit le programme élémentaire suivant, dessinant un triangle au centre de 
l'écran: 


LDX # 55000 Adresse centre écran 
LDD # 8000 1 point à gauche 

BOUCLE STD ,X Écriture dans mem.ecran 
LEAX 49,X Ligne suivante 
ORCC # 591 TC 
RORA Construction ligne suivante 
RORB 
BHS BOUCLE Ligne pas encore pleine 
RTS Triangle terminé 


Pour traduire ce programme en hexadécimal, il suffit de lire les tableaux 
donnés en annexe. 


Par exemple, le code de LDX en adressage immédiat est 83; l'octet corres- 
pondant à l'adresse indexée notée ,X est 84: le branchement relatif à 
BOUCLE est codé — 11, soit F5 en complément à 2, puisque le PC pointe 
alors sur RTS (instruction suivante). 


D'où le DATA: 
1 LCHTH SE, SH, 4. CC, SD, 4. El, 64.24, 68.28. 1A.1,46,56,2 
FS,.33.FIH 


Après avoir fait exécuter le programme BASIC Ge création (par RUN). un 
simple EXEC &H7F01 dessinera un triangle (de côté 16 points) au centre 
de l'écran. 


REMARQUE : Pour corriger un programme en langage machine, il suffit bien 
sûr de modifier le DATA, et ensuite de refaire exécuter le programme de 
création !.. 
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Il. Exécution-passage de paramètres avec le BASIC 


1. Instruction EXEC 


Cette instruction permet le branchement vers un sous-programme écrit en 
langage machine, qui doit se terminer par RTS. 


n'est pas prévu ici d'échange de paramètres avec le programme BASIC:il 
est toutefois possible de charger dans le sous-programme certaines 
adresses de la RAM avec des valeurs que l'on récupèrera par la fonction 
PEEK. 


2. Instructions USR-DEFUSR 


La fonction USR permet d'appeler un maximum de 10 sous-programmes 
différents écrits en langage machine, dont on aura défini préalablement 
l'adresse par une instruction DEFUSR n {(n, facultatif, doit être compris 
entre Ÿ et 9). 


L'appel sera réalisé en écrivant: 
\V USRntx) 


La valeur x de l'argument est alors chargée automatiquement dans 
l'accumulateur flottant FAC dont l'adresse ($6155: voir 2° partie) est 
placée dans le registre X; le type de l'argument est rangé dans l'accumula- 
teur À du 6809 selon les conventions suivantes: 


2 pour une valeur entière, que l'on lira en 2,X et 3,X 
4 pour une valeur réelle, commencant en @.X 

8 pour une valeur double précision, en @,X encore 
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pour une chaîne de caractères: c'est alors l'adresse du descripteur 
de la chaîne qui est placée dans X : on lira donc en @,X la longueur 
de la chaîne, et en 1,X et 2,X l'adresse du premier caractère de la 
chaine (voir 2° partie). 


Pour retourner une valeur dans la variable V, il faut bien sûr dans le sous- 
programme repositionner À et X avant le RTS. et placer la valeur soit en 
G,X (types 3,4 et 8! soit en 2.X et 3,X (type 2: entier). 


REMARQUE: On peut aussi transmettre l'adresse u d'une variable V du 
BASIC par: USRn (VARPTR(V)). 
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VARPTR étant de type entier, à est alors rangée automatiquement en 2,X 
et 3,X. 


On pourra ainsi traiter dans le sous programme les valeurs de plusieurs 
arguments; il suffit en effet pour celà de connaître la représentation 
mémoire des variables BASIC, que nous verrons dans la 2° partie (elles 
sont toujours placées les unes après les autres, selon l'ordre de rencontre 
par l'interpréteur lors de l'exécution). 


II. Désassemblage 


Alors qu'il est relativement très simple et rapide de traduire ” à la main” un 
programme assembleur en hexadécimal, le travail inverse est beaucoup 
plus long et fastidieux. 


Il est de plus nécessaire de décoder un grand nombre d'instructions avant 
de pouvoir comprendre le fonctionnement d'un interpréteur ou d'un 
moniteur | 


Nous donnons donc ici un programme BASIC réalisant automatiquement 
ce désassemblage. 


1. Le programme 


A partir d'une suite de codes hexadécimaux, il fournit sur l'écran ou sur 
l'imprimante un listing assembleur normalisé. 


Le listing est le suivant: 


SFA Jnitialisatinn des tableau. 
Si CIN CODE ESS PODESE 266 1, He TS 
Sad FEAEC CH CFOR HEÎ TU ES 
SPHSA PERD A$ IF LEHCASTS THEH ACF=MALS "EH 4H CODE A 
Dhs FERL HORDE 3: GOTOS ASE 
SPARA CEA HEËT H 
27114 FOR Hz=1 TO 7 
GPICA FEAT AS.IFLEH 462 STHEH ARE VAL MEHI4AS 2 CODES Al 
 GÜTOST 1 EE 
CH<AS HEFXT H 
FESTORE SA FÜR HET TL 1 
4 FFAD CG, AS ALR=SALEEHUEHS 
AP284 OC AGE CS: HE LE ES 
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COLE S$ AGP ="L "ag HET sh 
LOTS: : =" EFA" HE E 
CCE 2'LESF" HZ =, 
CObhe 27 = 'ERHU CHE SZ = 

Co 141 ="RSF" HE 41 =S 


Desassembhlate., .. 
JHFLIT" Reste de departiHera, 104$ CLOSE 
IF LEFTS: 4%. 1: " THEH OPEH "OM MSCRH "CC ADRF= 
“HFFEF-LHRU=23 ELSE OPEN "O1. "LPRT "-ASCIIDSC A8. LE 
H#=24: IHPLIT " Adresse de HÉEA RQE [RC ADFF= SALE " 
LHMA4LEFTS& CS, 4 

1 CLS: EF=A : ADR=VALE CÉHMA4LEFT SC AS, 4 15 
FOr L=A TO LAS 
IF HADCESACRF GOTOS 74 
IHO=8 : CÜDCZ<A : FRIHTA 1. HE SE ADE 1: 
COGSFEEKS ADP FRINHTA1. TAES ES HE SE CO 
IF EF=1 THEH H=1i GOTASESS 


FE m0 a te tu 2 Tr aitement. ‘un cade. 


is IFCOD=1e OR CODz1r THEH GOSURSS PAG ELSE CH=CODgr 
[Cr 

SPSEA IFCS=""THEH ER=1:H=1 PRIHTAI. THEC1Z M EF Code Le 
vistant" GOTOSESSA 

SPAM FEN... Traitement de l'adresse. 

Srél A Het CO 1: PRIHTH1. THE 1H: KE EEKC ADE+ 1 

rez IF Hd GOTOS Fan branchement 

5 1 IF He GOATOS Fan “Indezsation 

5 A AB=LEFTH CS. ZT: IF HE="PEHM OUR H=MPIIL" GOTOISGE Sd 
S A IF AS="EXS" OF AS="TFR" GOTOSE An 

Sré84 IF HS THEH IHD=-1 H=-H 

PCA FEN. Ecriture de l'inctruction..., 


GOSUESSÉ06 : PRIHTH1.THES 21 CS: TAB EP 1: 


RRFRERREREREEBEE ES 


5 4 IF INHCih THEH FRIHT#1. "#4": 

S7e54 IF H°:1 THEH FRIHT#1."$": 

Gran GOSUBRSRSAA: CATOASESSA .uite 
5635 * 

SPA FENM.. Branchement reélati F. 

7814 IF H=6 Ok COCÉS<1 GOTOSFESE “Lont 
SPALA HER:IF 2127 THEH K=E-2SE 

SP23A = ADR +Z4X : GÜTOS EEE 

SPenn HEG:IF 5127 THEH X=s-ESE 

SPEÈA = ESEHEPEEKR ADR4S 4ADR + 

s7sra ASE EUHHEX IS 1 GATOSESAA 

S7È9s 

san indexe. ..... 
7914 IS cAQE 

Sra24 COSLESÉ GER: V= AND £H1A “pit 4 


SO 
DS 


SPA K=X AHD 1S:IF YA THEH #=x-1é 

57944 AB=STRESK 140, 44%: H=Z : COTOISES GE 

SeDAG IFCX AND LHIF 2=2HIF THEN AS=CHP SC S1 14" $"4ME SC PEE 
FE ADR +2 0 1: H=d : IHD=3 : GOTOSÉSSAA 

Send GOSUESSSAQ : IFE AHC' LH16G3=A THEH IHDO=1 ELSE IHD=2 
SSASA É=X AND 15S:IF Ré AND X#<511 GCOTASS 144 

Se434 H=2: 0H x+1 GOTOSSA4S. 50460, S2AS5S,S0464.S0AES, SCQT 


SÉAdD AS="D, "445: GOTOSS248 
Se0dS AS="."+A8+"+": GOTISSZ 4 
SAS H=", "44" ++": GOTOSSEAN 
SORSS Hz", "448: GOTOSRZ47 


SEGER A$=".--"+4$ GOTOSEZ' 44 
Sue À$S=". "+46: CATASEZ4A 
Sara H$='"'E., "+46: COTOISE2di 
66475 HS="H., "+: GÜTOSS£44 
Ce] 


S3106 RESE At4C: 12 CGATOSEZ A 
: EAST THEH =r-25Sé 
i H=2 3:G0QT Qi Aer 41 


=: HET Indes". GCOTOSESS AA 


FH: OLA A ES 
IF = THEH A$=A$4+" CC" 
CIF W=1 THEN Hé=A$+" A" 


F 
AU ZCIF Wei THEN AS=f$+".E" 


OC 2 OIF “21 THEH 64-14" OF" 
MOD ZOTF 21 THEH AE-AE+" EE" 
! MOD OZ OTF Y=1 THEH AS=AS4" TT" 
# ue D 2 IF <G GOTOSRSES 
JF FIGHTS CS. jizncn THEH A$=HS+" LUI" ELSE H$S=H6+". 


a] CIF si THEH R$=H4&+" pi" 
1e, 4H he de #2 GATOISES AE 

Sad FEM.OOTER our EX 5. 

SEATA er HHfr 15 : 
SediS IN 4) GOTUSE 
à: ‘A. LEE "Et. S2466,6Re EE 
Sid H$=" TT rÉprenr" 
 AE= STE GTS: 348 4] 
SA HB=<AE4+ "ET" COTISE SEA 


Si 


! au 
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ds ASEHE4UT" 
=A+UII 
 AÉ=AG4+US" 
H=HY+"FL" GOT 
5 AS=HS+ "AT: LOTS 
AB=AS+'E" GUITARE 
AS=HS4+MLE" GOTHSSAEA 

H$S=H$+"CF" 

IF IHO=4 THEH IHDCz1 AS=Hÿ+"." EN COTOSEA4IE 


FE. Ecriture de l'instruction. . 
GSASUESESSAA PRIHATHI.TAERE ZE TS: 
IF LEFT 4%. 11=" " THEH H&=MIDSC AG. ZE 
fn FFINHTHI THE ETS OI LENS THEH FFIHT#I FFIHTH 
FiicLel+l 
3 FRINTHI AG: IF IH GOTOSSSSA 
à MePEERCADCR4SOCIE ÉSié THEH FFIHT#HT. "A". 
FFIHTH1. HE EE 0 CHE AS M: 
REMSESS Instruction suivante, 
4 ACF=ADEF+H 

FFIHTAI HEËT L'GOTOE 744 CE Lee 


n he 
7 : 


JO EN CAN HA ON | 
© © 


a 
=! 
2 
> 


A FENM.... Code of. sur octets... 

4 = 000: ADREATE +1 : COC<FEEES AGE 

4 PRINTAIOHEESE CO: C$ECTE SR COL 

IF “21e THEN CÜDZ=1 :RETLUFH 

IF Chi "CMP" HD Ce "CNP T" AH C$< "SUITE" THEH 
MU RETUFH 

SA JF C="CUIE" THEH Cé="5M13" RETLUEH 

A IF C$="CMPC" THEH C$="CMPLI" ELSE Cé$<"CMFS" 

7F4 FETLEH 


HS ANAANMANNNINNS 
7 29 dù do de do da do 2 5 do 


0 mo 


FE... Ecriture d'une adresse... 

FOR J=1 To H-1 

AA VePFEEFSAGR4I GIF CLÉ THEH FFIHTHJ. "A 
A FRIHTHI. HE SE 

4 HET :FETLURH 


1 PEN... Determination de l'index... 

Lg IFCE AHEAZ 1212 THEH H$="FU" FETLIFH 

1 MX AND 2HÉM:IF V2 THEH A$="<" FETLFH 
IF Y<2HPA THEH AS="T": RETUEH 

IF Y=£H4n THEH A$="LI" ELSE A$="S" 
PETLIFH 
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M! 


9 Pire ne 
DO D DD OQRHMSEL 


CATA CLF.F. 
DATA C 
CHTA C 
C'ATA UC, — 
CATA COMA, 4%, 1.0 
CATA CON. 3 63: 
CATA CHAI.3C. — 
CATA CAR. 13. 

DATA CECA.4A, 
CHTA CEA. 
CATA EDRH.S 

49145 C'ATH EGFE. CB 
AIS CATA EXC. 1€. 
291$ CATH JHCH, RATES 
9165 CAT IHC, Ë FC 


246 

54949 RENM ie Neo ns É849.,.,.. 

saaaa CATA 3. 1 

Sans DATA .89,-2,99,7.ÀA3.4 ' 

SaAÏA CATA À *C9.-Z,109,2.69.4.Fa. 

59815 CATA ACOA.SE.-2.9E6.2.AE.N.FEE. 

SQALA DATA ACCE.CE.-2.D06.2.EE.4.FE.Z 

SAS CATA AGO, CZ. -3.D3,2.,63.4.F2.5 

ENASA DATA HHOA.&d,-7.4,7,.44.n.F4.,% 

ag CATA AHDE.C4.-Z.Dd4,2.E4.4.F4.7z 

34 CATA AHBCC. 10, -Z 

aû CATA ASPA. 47. 1.ASFE. ST. 1 

33 DATA ASR.P TER A.F7r 

2 CATA EITA.8S.-2.95,5.A4S. 0.65, 

a CATA EITE.CS, -2.05,2.6S.4.F5.27 
CATA CLFA.4F CLF : 


Ê'D'S 
l 


BA ELA, 
Le 
— 
Er, 


in - 
ui DM TLUNMD UN 


. (Time 


Dune DD D D 0 


nt es De nu 0 0 CO Ts TN EL Là 
LU OUR D ND NL NBNMNSNEUNOMDAE 


RMI NNNSAMNNNNNANUNNN 
LD 'o G'0 DL 


C £ 
2174 CATA JMPEZÉE “1. e 
9175 CATA ISF.SC 
3124 DATA £ 3 
S155 CATA Ë 3 
31534 CATA LOC. CT = 
4195 DATA & 


m ns yes ELU a Lo Pa lu 


L - 


mi umint 


Tr 
: & 


7 
A.44. 
2. 


i 
SECTE: 


ALU 4P.1 
= HEGA . 451. 1. HES 
A HEG. HZ. 6tE 
A HOF. 12.1 
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DATA GPR 


CATA Ê 


C'ATR 
CATA 
CATR 
CATA 
CATA 
C'ATA 
FATA 
CATA 


5 CATA à 
a CATA F° 


CATH 
FATA 
CHTA 


1 C'ATA 


CHTH 
CATA 


5 CHTA à 
4 CATA SE 
CATA 

DATA * 
i C'ATA STE 


DATA ‘ 
CATA 
CATA : 
CATA 
CATH 


45 CATA 


CATA 
CATA 
CATA 
CATA 
CATA 


AE DATA € 


CHATA 


5 MATA 
4 OATAH STS. 


CATA 


FOL.. 


Te 


EN. ee. 


AF 4. EF 

an, 

SUÉE. CA. es C4, 2. 
SUED 83, -3.82,2; 
2F. de STHE. 1 


UT. 
TFF: 


TU, DEEP 0. FF: 2 


SEE 


LeigmMiu te 1 


0 DT 


MT 


Fa Fo 


1F. 


T= TH: 40. 1.TSTE. D j 


CATA SL 


CATA 
CATA 
DATA 
CATR 


CATA FE 


CE 2. ECT,? 
CF. ELS.Z3,. 
k de EHE. 


EP. A. Pfr.: 


.E" "C. 


‘ 
ee) 
4 
7 e 
Es 
[= 
Q 


.HEE 
A. 


REMARQUE: La longueur relativement impressionnante du listing, et en 
particulier celle des DATA, est bien sûr due à la richesse du jeu d'instruc- 
tions et des modes d'adressage du 6809! 


Dans un premier temps, on pourra d'ailleurs ne pas écrire les 25 instruc- 
tions situées de 58345 à 58480, en ajoutant seulement : 


58498 A$--’’xxx”’ 


Les registres concernés par TFR, EXG,PSH et PUL ne seront alors pas 
décodés. 


Commentaires sur le programme : 
Le programme se compose en fait de deux parties distinctes. 


Les lignes de 57000 à 57280 et celles situées à partir de 59@44(DATA) 
servent à initialiser les tableaux COD$ et COD2$ contenant les mnémo- 
niques de toutes les instructions, codées respectivement sur 1 et 2 octets: 
le tableau N est en même temps initialisé avec le nombre total d'octets de 
l'instruction : une valeur négative indique un adressage immédiat, la valeur 
@ un adressage indexé (adresse codée sur 1,2 ou 3 octets, en fonction du 
post-octet} et une valeur supérieure ou égale à 5 un adressage relatif. 


Ces tableaux sont ensuite utilisés par le programme de désassemblage 
proprement dit, constitué par les lignes de 57400 à 58956. 


Pour chaque instruction du programme en langage machine, il y a d'abord 
lecture du code COD d'instruction, d'où détermination du mnémonique C$ 
situé dans COD$(COD) ou COD2$(COD). 


La partie adresse est ensuite traitée, en fonction de la valeur de N(COD). 


Cas du TO7 sans extension mémoire : 


Les deux parties du programme devront être dissociées si l’on ne dispose 
que des 8 K de la version de base. 


On ne conservera donc pour le 1° programme que les lignes de 57000 à 
57280 et celles à partir de 59400, auxquelles on ajoutera les instructions 
suivantes : 


CFEH"U",E, "TABLERAUE" 

FÜR I=4 T0 254 

FRIHT#Z, LOD$e I 2 LOGE TI 1, ME I 2 HEXT 
EHDC 
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Ce programme enregistrera donc une fois pour toutes sur cassette les 
tableaux COD$. COD?2$ et N (appuyer sur la touche ‘Enregistrement du 
magnétophone avant de faire RUN). 


Le programme de désassemblage proprement dit sera alors constitué des 
seules lignes 57000 et 57400 à 58950, auxquelles on ajoutera la lecture 
des tableaux: 


5, Lan LFEH"I" 2. "TAELEAUE" 
5,114 FOR Id TO 255 
Sé124 LHPFUTREZ, LOC I rt LOCES I 4. HS I 2 'HEAT 


2. Mode d’emploi-résultats 


Lorsque le programme demande l'adresse de départ. on tapera directement 
l'adresse hexadécimale du début du désassemblage : on obtiendra alors sur 
l'écran 24 instructions décodées, et une demande de nouvelle adresse. 


Si on désire conserver le !'sung assembleur sur imprimante, on fera simple- 
ment précéder l'adresse initiale du signe ‘—"; le programme demande 
alors l'adresse de fin, que l'on tapera en hexadécimal toujours. 


La validité des adresses est bien sûr systématiquement contrôlée. 


Si on reprend l'exemple du programme dessinant un triangle, implanté ici 
en $BFO1, on obtient: 


HE 1 SE SiAtti LC 

ÉFu4 LE Ta TS [S LEE 

EF ED  S4 ST ,# 
EFOa 2  ERes  LERX 40% 
EF 1H “1 DRLL  #$ni 
BHHE dE FUEH 

EF Le FRE 

EF 14 24 FS EHS= $SÉFHF 
HF1Z 33 PTS 


La première colonne contient les adresses hexadécimales du début de 
chaque instruction: puis on a les octets correspondant à cette dernière (1 à 
5octets au maxirnum), et enfin l'instruction décodée, écrite en notation 
assembleur normalisée. 


Pour les branchements relatifs, c'est l'adresse effective du branchement 
qui est donnée. 
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Pour l'instruction PUÜLx, les registres sont dépilés dans l'ordre listé 
(exemple: $65B PULS A,X,U); par contre, l'empilement (PSHx) 
s'effectue en fait dans l'ordre inverse. 


Les registres transférés ou échangés sont listés en clair (Exemple : $1599 
TFR SX), ainsi que tous les adressages indexés. 


Enfin, rappelons que # désigne un adressage immédiat, $ un nombre hexa- 
décimal et les crochets | | un adressage (indexé ou non) indirect. 
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Deuxième partie 


L'INTERPRÉTEUR BASIC 
MICROSOFT 


Notre but n'est pas de donner ici une simple liste d'adresses de routines. ou 
de renseignements, sur l'interpréteur BASIC des micro-ordinateurs THOM- 
SON TO7 et TO7-70. 


Nous décrivons tout au contraire une méthode permettant de décoder 
n'importe quel interpréteur Microsoft, ceux-ci étant concus toujours de la 
même (excellente !} manière. 


Une fois compris et décrit le fonctionnement de l'interpréteur (chapitre let 
ll}, nous étudions (chapitre Ill) le traitement de quelques instructions 
fondamentales du BASIC. 


Nous signalons enfin que certaines routines détaillées ci-après demandent 
un effort de compréhension: le lecteur se verra récompensé par toutes les 
applications qui découleront de cette étude. 
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1 


Comprendre l’exécution 
d’un programme BASIC 


Les instructions d'un programme sont décodées et exécutées par une 
routine qui se présente sous la forme d'une boucle, décrite à chaque 
nouvelle instruction. 


Grâce à une table des adresses, l'interpréteur determine, à partir du code 
de l'instruction BASIC à exécuter, l'adresse du sous programme correspon- 
dant, qui réalise le traitement; l'instruction suivante est alors prise en 
compte pour poursuivre l'exécution du programme. 


Une fois décrit le codage d'un programme, puis trouvée la table des 
adresses et la boucle d'exécution, nous aurons tous les éléments néces- 
saires à la compréhension du fonctionnement de l'interpréteur. 
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1. Implantation et codage d’un programme 


1 — Pour trouver l'adresse à partir de laquelle est implanté un 
programme, on peut par exemple utiliser le programme suivant: 


14 FER  Prosramme 1 

25 HB=4 “HE Code tHdi.4f 

36 FOR I<éH6M@g TO £LHPFFF “FAN 

49 IF FEEKSI:=2H41 THEN IF FEEKCI+12:=£H42 THEN FRIHT HE 
x&é 1 

SA HEËT :EHC 


Pour les TO7, on obtient les adresses $660C et $6619 (et aussi $6680, 
situé dans la zone des variables: voir chapitre suivant); le programme 
commence donc une vingtaine d'octets auparavant, soit exactement en 
$S65F5. 


2 — Le programme suivant permettra alors de visualiser en hexadécimal 
le codage d'un programme : 


186 FEM Frogramme 2 

114 ADRO=GHESFS 

126 CLS:FOR I=ADRG TO HDRG+229 STEF 14 
126 FRIHT HEï&c I +" ";:FOR Jel TO 1+3 
146 PRINT USING"X ZX": HEXSCPFEEKSC 15: : HEXT 
156 PRINT:HEXT I:EHD 


On obtient: 

65FS 66 8 () 64 €C 26 29 6 72 6F 67 fe 

é691 61 ED 6D 65 28 32 6% 66 15 6 6E 41 

6660 44 2 34 D4 26 48 36 35 46 335 6 66, 

6619 37 6 78 9D 3h 81 26 49 D4 41 44 52 

5625 30 26 EB 26 41 44 52 36 C7 29 35 39 

3 — Connaissant le code ASCII (Annexes), on peut en déduire les 


éléments suivants: 


— Chaque ligne possède un en-tête de 4 octets: 


e Les deux premiers contiennent l'adresse de l'en-tête de la ligne 
suivante ; 


e Les deux suivants contiennent le numéro de la ligne. 
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— Chaque mot BASIC (REM, =, CLS, FOR, etc...) est codé sur un ou deux 
octets (le premier étant alors égal à &HFF), de valeur supérieure ou 
égale à &H80. 


— Chaque ligne se termine par un octet contenant @, qui précède l'en-tête 
de la ligne suivante. 


— La fin du programme est marquée par trois zéros consécutifs (ici en 
$6677); ils sont suivis de la zone où l'on trouve les variables. 


IH. La table et les codes des mots révervés du BASIC 


1. Recherche de la table 


Lors de la saisie des instructions d'un programme, l'interpréteur reconnaît 
et code les différents mots du BASIC, rangés dans une table par ordre de 
codes croissants. 


Celle-ci contient les codes ASCII des caractères composant les mots; la 
dernière lettre est toutefois codée différemment pour marquer la fin de 
chaque mot. 


La table sera donc trouvée à l'aide du programme 1 précédent, en recher- 
chant dans la ROM BASIC (adresses de $Q à $3FFF) les caractères EN 
(codés &H45,4E) du mot END situé au début de la table (code &H80). 


On obtient $92,$162 et $1758: mais un examen de ces adresses 
(programme 2 précédent, en modifiant ADR) montre que le END (suivi de 
FOR, de code &H81) est bien en $92. 


Le début de la table est donc en $92, et la fin en $269 : $26A contient un O 
marquant la fin de la table. 


On constate de plus que le bit de plus fort poids du dernier caractère de 
chaque mot est mis à 1 dans la table. 


Le programme suivant permet de lister les 125 mots du BASIC, avec leurs 
codes {le programme 2, où l'on écrit différentes instructions et fonctions à 
la ligne 20, permet de constater que le codage change après le 87° mot, 
codé &HD5). 
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z64 REM  Frogramme 3 

z18 H$="":LOCE=RHSA 

224 FOF I=LHSZ TD D &Hz69 

225 K2PEEFS IS IF XESHSG THEN H$S=AS+CHRSE EX 1: COTOZÉ6G 

248 AS=AS+CHREC #-LH80 0: IF COCE<S=EHDS THEH PRINT HEX$C CO 
DE >. ELSE FRINT'FF'"+HEXS: CODE-S86 à; 

SD FRINT" "+46, : CODESCOCE+1 A$="" 

FÊÉA HEËT:EHCG 


Le résultat est donné en annexe; on constatera que les fonctions sont 
codées sur 2 octets, le premier étant égal à &HFF 


La table des mots est donc en fait composée de 2 tables: 
__ celle des instructions commence en $92 et comporte 86 mots (&H56), 


— celle des fonctions commence en $1CF (trouvé toujours grâce au 
programme 1, en recherchant les caractères SG de SGN) et comporte 
39 mots (&H27). 


2. Utilisation par l’interpréteur 


L'interpréteur utilise la table des mots en initialisant un des registres avec 
l'adresse du début de la table: ce registre r est ensuite incrémenté pour 
balayer la table, jusqu'à ce que soit trouvée la suite des caractères compo- 
sant le mot à coder. 


L'initialisation du registre peut être à priori faite soit par l'instruction 
LDr # $0092 ou $01CF pour les fonctions), soit par une instruction LDr 
adresse, ‘adresse’ étant l'adresse d'une mémoire contenant $9992 (ou 


$91CF). 


Le programme suivant recherche la valeur &HO092 dans la ROM et dans 
la RAM (de 56000 à $65F4): 


34 FEM Froïrazamme 4 

A H=G:E=2Hsz 

CD 1=0: I1=2H3FFF : GOSUB3SA 

36 18=4HÉ60060: 1i=2LHÉSF4 : GOSUE355 
6 EEEF:END 


Uo dat dut CO dur Co Lot 
BCE CG 


50 FOR I=I14 TD Ii 

360 IF FEEKSIDSA THEN IF FEEKCI+12<6 THEN PRINT HEXS$c I 
: HE SC FEEFC 1-1 55, HE $C A+HEXSCE 

376 HEXT :RETURH 


On trouve $38AA et $6202, précédés tous deux de &H56 (code de RORB, 
qui ne convient pas}: pour la valeur &H1CF (obtenue avec 2@ A--1: 
B__&HCF), on trouve $38AF et $6207, précédés tous deux de &H27 (code 
de BEOQ, ce qui ne convient pas davantage). 


Pour l'initialisation du début des tables, on doit donc chercher une instruc- 
tion ayant $3844A ou $6202 comme partie adresse, puis $38AF ou 
$6207 (on verra que la page @ du BASIC n'est pas située en $62, et on n'a 
donc pas à chercher une adresse $02 ou $07). 


Le programme 4 permet (en modifiant la ligne 310) de constater que l'on a 
nulle part une telle instruction. 


On peut pourtant constater que la zone de $6201 à $620A contient les 
mêmes informations que la zone de $38A9 à $38B2 ; cette dernière zone 
est donc recopiée dans la RAM à l'initialisation du système (par une routine 
située en $37E5), dans le but évident d'être utilisée plus tard... 


On doit donc chercher dans l'interpréteur les 2 instructions: 


LD: # valeur 
LEA d,r (ou ADD x d sir D) 


avec d-$6292 — valeur (ou $6207 — valeur) 


Le programme 4 légèrement modifié permet de lister toutes les instruc- 
tions ayant une adresse de $61FQ à $620F par exemple; on en trouve 9, 
dont seulement 4 sont précédées d'un code d'instruction à adressage 
immédiat (LDU dans les quatre cas): il s'agit de $2969, 2A1F, 2A60 et 
37E9. 


Un examen attentif, par le désassembleur de la première partie, des 
instructions situées autour de ces adresses montre que les instructions: 


2AIE ID # $61F7, 
2A5F IDD # $61FC, 


correspondent respectivement à l'initialisation des registres Ÿ et B par les 
valeurs situées en $6202 (adresse du début de la table) et 56291 (nombre 
de mots), et par celles situées en $6207 et 56206. 


Dans les deux cas, il y a en effet utilisation de la routine suivante, située en 
$24A21: 


2A21 CIR ÿ45 Numero du mot dans la table 
LFAU gt $6291 ou 6296 
LDB U Nombre de mots dans la table 
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BEQ $2A5F 


LDY 1,U Contenu de $6292 où 6297 —+ Y 

LDX ,S Adresse debut du mot du buiter 
2A2€ IDA ,X+ Une lettre du mot a coder 

BSR $2A88 Minuscule — majuscule 

SUBA ,Y: Une lettre de la CLIE 

BEQ $2A2E Lettre suivante 

CMPA _ # $8ÿ Si égal, on a trouvé le mot 

BNC $2A76 Moi suivant 


etc. 


A titre indicatif, signalons que le codage d'une instruction est réalisé par 
une routine commencant en $29A3, appelée elle-même en $44C (ou en 
$424 si on est en mode commande) : cette routine code les mots du BASIC 
directement dans le buffer clavier contenant les caractères de l'instrüction, 
situés à partir de $6445: le codage est effectué lors de la frappe de la 
touche ENTRÉE‘ terminant l'instruction. 


Signalons aussi que la routine contenant l'instruction $2968 est utilisée 
par LIST: elle opère en sens inverse de $29A3. 


3. Application immédiate 


ll suffit de modifier (POKE ou LOADM) le contenu des octets $6201 à 
6203, et $6206 à 6208, pour pouvoir créer son propre vocabulaire BASIC, 
par exemple avec des mots français: voir troisième partie. 


II. La table des adresses d'instructions 


La table des adresses de traitement des instructions et fonctions contient 
forcément une suite d'adresses de routines situées dans le BASIC; le 
1°" octet doit donc être toujours inférieur ou égal à &H3F (ROM) ou. éven- 
tuellement, compris entre &H6@ et &H65 (RAM avant le programme). 


Le programme 5 suivant cherche donc dans là ROM une suite d'au moins 
20 couples d'octets consécutifs dont le 1°’ est inférieur ou égal à &H3F. 


406 FEM Frosramme 5 

416 FÜR I1z6 TO &HSFEG 

426 IF PFEEKSIDZ£HSF SÜTO46R 

439 FOR J=1+2Z TD D 1+248 STEF 2 250 adresses maxi 
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446 IF FEEKCJ3<&H4Q THEN NEXT 
454 IF J51+46 THEN PRIHTHEXS( I 2, HEXSCJ-1 5: 1=J#+1 * 229 
466 NEXT I 


On obtient $1C à $6D et $26B à $2C8: or, si l'on observe (programme 2) 
la fin de cette dernière zone, on s'aperçoit en fait qu'elle continue jusqu’en 
$S2DE (soit 58 adresses), puisque jusque-là on ne trouve qu'en $2C9 
et $2CB les adresses $6233 et $6236, adresses où l’on a JMP $7F3 ren- 
voyant à une adresse de la ROM. 


Or, on pourra constater que seuls les 58 premiers mots du BASIC (de END 
à PLAY) sont directement exécutables. 


Une ultime vérification consiste à relever par exemple les 1°'°, 9°, 30° et 
36° adresses de la table, soient $53B, $5F2, $35EB et $35E6, correspon- 
dant en principe respectivement à END, RUN, CLS et BEEP. 


— EXEC &H53B inséré dans un programme provoque l'arrêt de celui-ci; 


— EXEC &H5F2 provoque le redémarrage du programme à partir de la 
première ligne ; 


— EXEC &H35EB efface l'écran; 
— EXEC &H35E6 génère un “bip” sonore. 


La table des adresses de traitement des instructions se situe donc bien en 
$26B : on trouvera ces adresses en annexe. 


Nous verrons au chapitre suivant que la zone de $2Q à $6D représente la 
table des adresses des fonctions BASIC. 


Premières applications : 


Dans un programme en langage machine, un JSR $35EB effacera l'écran: 
un JSR $35E6 génèrera un ‘bip”. 


Un JSR $5F2 permettra d'appeler un sous-programme écrit en BASIC à 
partir d'un programme en langage machine. 


On pourra enfin étudier le traitement des diverses instructions du BASIC en 
listant les routines correspondantes. 
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IV. Le traitement des instructions 


1. Utilisation de la table des adresses 


1 nous faut trouver l'endroit où s'effectue le branchement aux différentes 
adresses de traitement des instructions. 


On vient de voir que le BASIC doit pour celà, à partir du code C d'une 
instruction, calculer l'adresse : 


A &H26B:(0C  &HBM) x 2, 


où se trouve l'adresse du sous-programme de traitement de l'instruction. 


On va donc chercher s'il existe dans la ROM ou la RAM une valeur &H26B 
(ou à défaut une valeur de &H267 à 26F par exemple, puisque la formule 
exacte du calcul de À est encore inconnue); cette valeur pourra être 
précédée d'un code d'instruction à adressage immédiat (ce ne pourra être 
que LDr ou ADDD) ou indexé, le pré-octet indiquant alors un déplacement 
sur 16 bits. 


On reprend donc le programme 4: on obtient les deux adresses $38AC et 
$6204, les deux octets $38AB et $6203 contenant la valeur &H92 (code 
de SBCA direct}; ceci ne correspond pas à la condition ci-dessus. 


li faut donc chercher une instruction ayant $384C ou $6204 comme 
partie adresse ; la page @ du BASIC n'étant en effet située ni en $38,nien 
$62 (voir paragraphe suivant), l'adresse ne peut être SAC ou $04. 


On reprend donc le programme 4 pour chercher $38AC, puis $6204:onne 
trouve pas $38AC, par contre on trouve $6204 en $2B36: l'octet $2B35 
contient &HBE, c'est-à-dire le code de LDX en adressage étendu, ce qui 
correspond bien à ce que l'on cherche. 


Remarquons que si l'on n'avait pas trouvé, on ferait comme au paragraphe 
précédent, c'est-à-dire que l'on chercherait une instruction LDr # valeur 
avec ‘ valeur” située par exemple entre $61F0 et 620F. 


On peut donc maintenant à l’aide du désassembleur examiner les instruc- 
tions autour de $2B35 : on y trouve effectivement le calcul de A ci-dessus. 
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Le listing complet est le suivant: 


2B25 JSR $6278 Contient RTS 
BNE $2B2B 
RTS Si3A entête (”) 


2B2B CMPA # $60 Mot BASIC ? 
LBLO $722 Caractere ASCII (affectation) 
CMPA _ # $B9 Code de PLAY 


BHI $2B42 Code > &HB9 
2B35 LDX $62g4 Début table (&H26B) 

LSLA (Code-&H89) x 2 — À 

TFR A,B 

ABX (Code-89) + 2:$526B —+ X 

LDX ,X Adresse traitement 

JSR $B2 Voir ci-apres 

JMP x Traitement de l'instruction 
2B42 CMPA  # $FF 

BEQ $2B4F 

CMPA  _#$D5 Code de < 

BLS $2AFF Contient JMP $7F3 (SN Error) 

JMP [$628E] Contient $7F3 (SN Error) 
2B4EŒ  JSR $B2 Voir ci-apres 

CMPA _ # $9C Code de MID$ 

LBEQ  $1190 


CMPA  # $A1 Code de INPUT 
LBEQ $27A5 

CMPA  # $A4 Codede SCREEN 
LBEQ $33CC 

JMP $6273 Contient RTS 


Application immédiate : 


En modifiant le contenu des octets $6204 et 6205, on pourra faire utiliser 
par le BASIC sa propre table d'adresses. 


On pourra alors créer son propre langage (par exemple un BASIC “entier” 
très rapide) en écrivant les sous-programmes correspondants. 


L'avantage est que l'on profitera ainsi de toute la partie de l'interpréteur 
réalisant le codage et l'édition. 


2. Routine $B2 


Cette routine fondamentale permet le ‘balayage ” des caractères d'un 
programme. 
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Le programme suivant, appelé par USR, nous donnera tout d'abord 
l'emplacement de la page @ du BASIC: 


TFR DP,B Registre de page Ÿ — B 
STB 3x Poids faible accu. entier 
RTS 


Ceci correspond à la suite des codes hexadécimaux 1F(31), B9 (code de 
PLAY), E7, 3, 39 (code de 9), qui seront donc implantés en mémoire (en 
$65F8) le plus simplement possible par l'instruction 31 du programme 
suivant : 


31 FLATAS3S: POKE SH6SFA. LHE7 : POKE 2H6SFE, 3 
46 CEFUSF=SRHESFE : PRINT HEXS$E USERS G 2 


On obtient $61, qui constitue l'emplacement de la page @ du BASIC 
D'où le listing de la routine $B2: 


61B2 INC $BA 
BNE $C1B8 


INC $B9 

61B8 LDA PxxxX Adresse caractère courant 
CMPA  # S3A Caractere ”’:"? 
BHS $61C9 


CMPA  # $2ÿ Espace ? 
BNE  $61C5 
JMP $B2 Elimine les espaces 
61C5 SUBA # 530 Chiffre de 0 à 9? 
SUBA # $D4 
6IC9 RTS 


Cette routine incrémente donc l'adresse du caractère courant, contenue 
dans $61B9 et 61BA, puis retourne dans le registre A le code du caractère. 
Le registre CC des codes conditions est positionné de la manière suivante : 


— Z'est mis à 1 si l'on a un @ ou le caractère ‘’:"”, c'est-à-dire une fin 
d'instruction; 


— Cest mis à 1 si l'on a un chiffre, et à @ dans le cas contraire. 


REMARQUE: Cette routine existe sur tous les interpréteurs: elle peut être 
trouvée directement par le programme 1 {légèrement modifié) en cher- 
chant l'endroit de la RAM où se trouve l'adresse du caractère courant du 
programme. 
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3. Contrôles de validité 


La syntaxe des instructions, ou les valeurs de certains paramètres, sont 
systématiquement contrôlés par l'interpréteur au fur et à mesure de 
l'exécution d'un programme (par exemple ici, $2B42 contrôle la validité 
d'un code). 


Si l’un de ces contrôles est positif, il y a branchement en $353, le registre B 
contenant le code de l'erreur: voir $7F3 par exemple. 


Les variables systèmes ERR (code de l'erreur) et ERL (numéro de la ligne 
où s'est produite l'erreur), situées respectivement en $6189 et $618A (voir 
chapitre Il la routine $770, en $7C2) sont alors positionnées. 


L'exécution est ensuite soit interrompue et le message d'erreur (contenu 
dans une table située en $1722) affiché, soit poursuivie en a (jusqu'à 
l'instruction RESUME) s'il existe dans le programme une instruction ON 
ERROR GO TO «. 


V. Boucle d’exécution d’un programme 


Pour la trouver, il nous faut chercher dans la ROM un JSR, BSR ou LBSR 
$2B25 (ou $2B2B). 


Or, en remontant avant le sous-programme de traitement des instructions, 
on trouve immédiatement en $2B21 les instructions: 


2B21 BSR $2B25 Traitement 
BR \ $2AED Debut de la boucle 


D'où le listing de la boucle: 


2AED SIS $8C 
JSR $32BB Survenlance du clavier 
LD $B9 Adresse caractere Courant 
SIX $34 
LDA .X fou” ‘"? 
BFQ $/B#2 Nouvelle ligne 


CAPA # S3A 
BEQ $2B1F 
JAP $713 SN Ertot 
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2B92 LDD X++ A-t-on trois #? 
BEQ $2B65 Fin du programme 


LDD ,X+ Numero de la ligne 
STD $2C 
STX $B9 Sur dernier octet de l'en-tête 
LDA $86 #@ si TRON (voir $139E) 
BEQ $2B1F Pas de trace demandée 
LDA # $5B Code de "[” 
JSR $1955 Écrit sur l'écran 
LDA $C Numero de la ligne 
JSR $1ED1 Écrit le numéro 
LDA #$5D Code de "]" 
JSR $1455 Écriture 

2BT  JSR $B2 1 octet de l'instruction 
BSR $2B25 Traitement 
BRA $2AED Instruction suivante 


Routine de surveillance du clavier: 


32BB  JSR $6294 Contient RTS 

JSR $E899 KTST$ du moniteur 

BCC $32BA RTS (pas de touche) 

PSHS B Sauvegarde 

JSR $E896 GETC$ du moniteur 
32C8 à … Arrêt si CNT/C ; boucle si STOP; 
…32E1 Code touche — $65B1 sinon 


Application immédiate : 


En intervenant en $6294, on pourra supprimer ou modifier l'action du 
clavier : voir 4° partie. 
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Le traitement 
des variables 


Le traitement des variables sera décodé en étudiant l'instruction d'affecta- 
tion; on trouvera ainsi du même coup le traitement des opérateurs et des 
fonctions BASIC. 


Avant d'étudier la routine correspondante, il est nécessaire de connaître la 
représentation mémoire des variables et des tableaux, et aussi la manière 
dont est gérée la mémoire. 


I. Représentation des variables 


Les variables rencontrées lors de l'exécution d'un programme sont placées 
au fur et à mesure dans une zone de mémoire située après le programme 
lui-même: cette zone sera donc examinée à l'aide du programme 2. 


Pour les TO7, on trouve que chaque nom de variable est précédé d'un octet 
contenant la valeur du type de la variable (dans les 4 bits de plus fort 
poids), puis le nombre de caractères du nom diminué de un {les %, $, ! ou 
# éventuels ne comptent pas) : on trouve ensuite le nom codé en ASCIL et 
enfin la valeur contenue dans un nombre d'octets égal à la valeur du type. 
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Exemple: on écrit dans le programme 2: 


115 AB=1.5S:CDEX=-3 : 4B$="chaine": CEA=-2. 25 : ALROSÈHEESGF 


On obtient : 


663  ÿ à A 41 41 42 61 49 @ 9 22 43 
BERB dé 45 FF FD 31 41 42 6 66 D 42 43 
6EB7 42 41 82 96 6 6 43 41 44 52 3û £&F 


— Le bit de plus fort poids d'une variable entière (type égal à 2) repré- 
sente le signe; les 15 autres bits contiennent la valeur en complément 
à deux: 


— Une variable réelle simple précision (type égal à 4) est codée en mode 
virgule flottante : le premier octet est égal à l'exposant de 2 augmenté 
de &H80: les trois autres octets contiennent la mantisse normalisée 
{inférieure à 1 et supérieure ou égale à 0,5), le bit de plus fort poids 
étant remplacé par le signe de la valeur. 


Exemple : 
225 m 24% 056758 27 (22 + 254) 


d'où le codage: 


82 90 90 00 


— Une variable double précision (type égal à 8) est codée de la même 
manière, la mantisse occupant 7 octets. 


— Le premier octet d'une variable chaîne (type égal à 3) contient le 
nombre de caractères de la chaîne; les deux autres octets représentent 
l'adresse de la chaîne, située soit dans le programme lui-même en cas 
d'affectation simple (variable — ‘chaîne "}, soit en fin de mémoire en 
cas de concaténation. 


REMARQUE : Le nombre d'octets d'une variable réelle peut changer selon les 
ordinateurs; de même, la représentation des noms de variable peut être 
différente. Par exemple, lorsque le nom est limité à deux caractères, le 
codage se fait toujours sur 2 octets, dont le bit de plus fort poids est posi- 
tionné pour indiquer le type. 
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il. Représentation des tableaux 


Les tableaux sont placés dans une zone située après celle des variables; un 
tableau est créé dans cette zone par l'instruction DIM, ou à défaut par la 
première utilisation du tableau (la taille étant alors égale à 11). 


Le nom d'un tableau est codé comme celui d'une variable: il est suivi de 
l'en-tête suivant, qui précède les valeurs: 


— deux octets contiennent le nombre total d'octets occupé par le tableau 
{y compris l'en-tête) ; 


— un octet contient le nombre d'indices; 


— pour chaque indice, on a ensuite deux octets contenant la Valeur maxi- 
male augmentée de un, en commençant par le dernier indice. 


Pour les valeurs, c'est le premier indice qui varie d’abord, puis le second est 
incrémenté, etc... 


Exemple: On écrit dans le programme 2: 


119 Din HBX3,22: ABX< 1,60)=1: ABXC2, 0222: HBXCS, 6 2=3 : ABXC GO 
, 1 254 : ABXS 1, 1 225 : ADRG=EHEED3 


On obtient: 


66D3 £1 41 42 6 
S6LF ÿ Î [5 l 


Il. Gestion de la mémoire 


L'interpréteur gère la mémoire à partir des adresses de chaque zone. 


Les mémoires contenant ces adresses peuvent être trouvées soit par le 
programme 1 {on recherchera par exemple la mémoire contenant l'adresse 
du début de la zone des variables, trouvée par comptage à partir de 
$65F5), soit par observation (le programme 2 permettra de trouver 
l'emplacement des chaînes, le contenu de $618C, 618D donne la valeur du 
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IV 


pointeur S, etc...) soit par l'étude de l'instruction d'affectation (voir par 
exemple la routine $A48, en SA8A). 


On trouve que ces mémoires sont situées en page @ du BASIC: contenant 
des adresses, elles occupent deux octets chacune: 


— $611C pointe sur la première instruction du programme, c'est-à-dire 
sur $65F5; 


— $611E pointe sur le premier octet de la zone des variables: 
— $6120 pointe sur le premier octet de la zone des tableaux: 


— $6122 pointe sur le premier octet libre situé après les tableaux, c'est-à- 
dire sur le dernier octet utilisable par la pile S: 


— $6124 pointe sur le “fond” de la pileS: la zone des chaînes 
commence juste après: 


— $612A pointe sur le dernier octet de la zone des chaînes: les caractères 
utilisateurs éventuels sont situés juste après, en commencant par la 
ligne du bas du dernier; la ligne du haut de GRS$(Q) est située en FIN-1, 
FIN étant la plus haute adresse du BASIC (deuxième paramètre d’un 
CLEAR, ou plus haute adresse de la RAM par défaut). 


Recherche d’une variable ou d’un tableau 


L'adresse de cette routine fondamentale de l'interpréteur sera trouvée en 
listant les premières instructions du traitement de l'affectation: celle-ci doit 
en effet d'abord déterminer l'adresse où devra être rangé le résultat, qui 
sera ensuite calculé. 


La routine recherche une variable ou un élément de tableau dans la zone de 
mémoire correspondante; elle crée cette variable (sauf si elle est située 
dans un calcul d'expression, ceci pour le cas où la valeur devrait être 
affectée à un éiément de tableau, non déplacable pendant l'affectation elle- 
même) ou le tableau lui-même, en les initialisant à @ s'ils n'existent pas 
encore; elle retourne enfin l'adresse de la valeur correspondante. 


Dans le cas des TO7, la routine est située en $A48 (on trouve en effet en 
$722 l'instruction JSR $A48): elle retourne l'adresse de la valeur dans le 
registre X et dans la mémoire $613D: le type de la valeur est placé dans 
l'octet d'adresse $6105: enfin, $61B9 (contenant l'adresse du caractère 
courant du programme) est positionné sur le premier caractère qui suit la 
variable où l'élément de tableau. 
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Le listing est en effet le suivant: 


A4B CLRB 
JSR 

A4B  STB 
JSR 
BSR 


A52à …A75 
A76 JSR 
LDB 
DECB 
LBEQ 
INCB 
BNE 
SUBA 
LBEQ 
AB8 CLR 
LDX 
ABC  CMPX 
BEQ 
LDB 
LSRB 
LSRB 
LSRB 
LSRB 
PSHS 
JSR 
PULS 
BEQ 
ABX 
BRA 
NAS 
…AD7 


AD&  STX 
RTS 


$B8 
$g4 
$6297 
$AYA 


$B2 
$a7 


$B64 


$ABB 
#$28 
#$B12 
$47 
$1E 
$24 
$AA2 


$3D 


1°" caractère du nom à chercher 
Entrée pour DIM, avec Bzg 
Contient RTS 

Nom rangé à partir de $657A ; 
nombre de caracteres en $613C 
Valeur du type — $6195 

1°" caractere après le nom 
Contient normalement g 


Recherche début d'un tableau 


Pas de tableau (cas de FOR) 
Code de ”’(”’ 

Elément de tableau 

Variable 

Début de zone des variables 
Fin zone des variables ? 
Variable n'existe pas encore 
1°" octet d’un variable 


Garde les 4 bits de fort poids 
Valeur du type 
Comparaison des noms 


Variable trouvée 

Pas la bonne variable 

Variable suivante 

Variable ajoutée en fin de zone (sauf si $A48 a été 
appelée en $844), apres déplacement de la zone 
des tableaux 

Adresse dans X et $3D 


Puis on a, pour les tableaux: 


B12 à 

.….B62 

B63 LDB 

B65 PSHS 

B67 à 

… BEB 

BF9 à 

(12 

C13 STX 
RTS 


$3D 


Calcule et empile les indices 

Ou CLRB en $B64 

SF ou ÿ dans la pile 

Cherche nom du tableau (et RTS si pile contient 
#) ; tabl. créé par $B97 si n'existe pas encore 


Calcule l'adresse de l’élement 
Adresse dans X et $3D 
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Le lecteur est bien entendu vivement invité à étudier les instructions ou 
sous-programme non listés ici pour des raisons de place. 


Amélioration possible : Lorsqu'on étudie le traitement des instructions du 
BASIC, on s’apercoit que l'interpréteur appelle la routine $A48 chaque fois 
qu'il rencontre une variable où un élément de tableau. 


Par exemple dans le cas d'une boucle, il y a donc à chaque passage 
exploration de la RAM jusqu'à trouver la valeur correspondante, située 
pourtant toujours au même endroit dans le cas d’une variable. 


On verra dans la 4® partie que ceci peut être évité, en intervenant en 
$6297: la vitesse d'exécution des programmes sera alors très nettement 
augmentée. 


V. Traitement d’une expression 


1. Instruction d'affectation 


L'instruction se présente sous la forme: 
variable — expression 
(‘variable pouvant être un élément de tableau). 


La routine de traitement est la suivante: 


722  JSR $A48 Recherche de la variable 
STX $3F Adresse de la valeur 
LDB # $D4 Code de ” -” 
JSR $Dg Contient JMP $7EB 
LDA $95 Type de la variable 
PSHS A 
JSR $81A Calcul de l'expression 
PULS A 
734 JSR $2519 Conversion éventuelle de l’exp. dans le type de 
la variable 
JSR $CD Contient JMP $2582 
LBNE $1C36 Si type 2,4 ou 8; range valeur à l'adresse contenue 
dans $3F 
73D a … Si type 3; affecte la chaîne résultat à la 
GA variable 
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Les routines situées en $7EB et $2592 sont appelées de nombreuses fois 
par l'interpréteur. 


— $7EB est utilisée pour tous les contrôles de syntaxe: elle teste si le 
caractère courant est bien égal à celui contenu dans l'accumulateur B 
{SN Error sinon), puis elle retourne le caractère suivant; on a en effet: 


7EB CMPB 
BNE 
JMP 

73 LDB 
JMP 


[$61B9] 
$7F3 
$B2 
#$02 
$353 


Code du caractère courant 


Caractère suivant 
Code erreur SN: syntax error 
Affichage erreur; arrêt 


— $2592 positionne le registre CC du 6809 selon la valeur x d'un type, 
contenue dans l'octet $6195 {ou dans le registre A si le point d'entrée 


Si 
Si 
Si 
Si 


est en $2504): 


X 
X 
X 
X 


= 2 (entier), N et C sont mis à 1. Z et V à @ 

= 3 (chaîne), Z et C sont mis à 1, N et V à @ 
= 4 (réel), V et C sont mis à 1, N et Z à @ 

— 8 (double précision), N,Z.V et C sont mis à @. 


On a en effet: 


2. Calcul d’une expression 


2592 LDA 
2594 CMPA 
DECA 
DECA 
DECA 
BLE 
BCC 
ORCC 
259F RTS 


$g5 
#$08 


$259F 
$254F 
# $92 


9 — Csi8 


1 - 283,1 + Nsi2 
Si2ou3 

Si8 

Si4;:1 > V 


Il est effectué par la routine $81A: celle-ci range le résultat x dans 
“l'accumulateur flottant” (utilisé par l'instruction USR du BASIC) situé à 
partir de $6155. 


— Si x est entier, il est placé en $6157 et 6158; 


— Si x est une chaîne, l'adresse du descripteur de la chaîne (c'est-à-dire 
toujours $658A, adresse où l’on trouve la longueur et l'adresse de la 
chaîne) est placée encore en $6157 et 6158: 
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— Sixest un réel, la valeur absolue est rangée de $6155 à 6158, le signe 
étant contenu dans $615D (dans le bit de plus fort poids); 


— Si x est un réel double précision, l'accumulateur va de $6155 à 615C; 
le signe est toujours en $615D. 


Enfin, le type du résultat est placé dans $6105. et il y a positionnement de 
$61B9 sur le premier caractère qui suit l'expression. 


Le listing est le suivant: 


81A BSR $815 Revient sur caractère précédent 
CLRA 
81D  CMPX # $9641 Ou LDA $41 en $81E 
PSHS A 
LDB # $01 
JSR $336 Test de débordement mémoire 
JSR $779 Traite un opérande; valeur dans l’accumulateur 
flottant 
82A à 875 Décodage d’un opérateur ou RTS 
876  BSR $883 Calcule une sous-expression 


878 BRA $82A Suite de l'expression 


3. Traitement d’un opérande 


On verra que la routine $883 contient un JSR $81E pour chercher la valeur 
de l'opération situé après l'opérateur T; tous les opérandes sont donc trai- 
tés par la routine suivante, située en $776: 


770 JSR $627C Contient RTS 
LDX $B9 
JSR $B2 1 caractère de l’opérande 
BEQ $76B MO Error (Missing Operand) 
BCC $789 On n’a pas un chiffre 

77B  STX $B9 On a un chiffre 
JMP $1E03 Traitement des constantes 

788  JSR $A36 Retourne C=$ si on a une lettre 


BCC $8g9 Variable 
CMPA  # $2E Code de ”’.”’ 


BEQ $77B Constante réelle 
789 à … Décode et traite + unaires,’’ (chaîne), NOT, &, 
7D4 ERR et ERL, USR 


7D5 CMPA #S$BD  CodeFN 
LBEQ  $623C Contient JMP $7F3 (SN Error) 
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INCA A-t-on FF (fonction)? 
BEQ $8gD Contient JMP $2A93 


7DE à … Teste si on a ‘”’(”’ et SN Error sinon; calcule l’exp. 
…/F7 entre () 
899 JSR $A48 Recherche de la variable 
STX $57 Adresse 
JSR $CD Contient JMP $2592 
BNE $8gA Si variable numérique 
RTS Si variable chaîne 
8gA  JMP $1Cg2 Valeur dans accu. flottant 


4. Applications 


En intervenant en $623C, on pourra utiliser des fonctions utilisateurs (FN): 
voir troisième partie. 


En intervenant en $627C, on pourra modifier la routine $7 70 du traitement 
d'un opérande, par exemple au niveau du calcul des constantes, ou de la 
recherche d'une variable: voir quatrième partie. 


VI. Traitement des fonctions BASIC 


On vient de voir qu'il est effectué en $2A93; on a: 


2A93 JSR $6288 Contient RTS 

JSR $B2 Deuxième octet du code 

TFR A,B CodeC > B 

LSEB x-(C $89),2 — B 

JSR $B2 Caractère suivant 

CMPB _ # $4C PTRIG 

BLS $2AA5 Si inférieur ou égal 

JMP [$6213] Contient $7F3 (SN Error) 
2AA5 PSHS B x — pile 
2AA7 a. Traitement des paramètres; conversion en réel 
….2AF1 pour les fonctions de code $FF84 à 89 (SQR a TAN) 
2AE2 PULS B Dépile x 

LDX $6299 Contient $0920 

ABX X pointe sur x‘ adresse 

JSR [9,X] Traitement de la fonction 

JMP $24FD Contrôle du type 
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VII. 


On constate immédiatement que la table des fonctions commence en 
$0020. ce qui correspond à ce que l'on avait trouvé au chapitre |: elle se 
termine en $006D. 


On trouvera en annexe les adresses de traitement de toutes les fonctions 
BASIC (lues dans la table, ou décodées différemment, par exemple pour 
TAB ou SPC, etc...). 


Application immédiate : Un programme écrit en langage machine peut utili- 
ser directement des fonctions BASIC, par exemple SOR, CSNG, etc... : voir 
3° partie. 


Traitement des opérateurs BASIC 


L'enchaîinement des routines correspondantes est relativement complexe. 


1. Table des opérateurs 


On a vu que les opérateurs sont décodés en $82A: on a: 


82A a 833 Initialisations 
834 à Codage dans $6143 des opérat. de relation: 
…84A 1a>,2s-,3s>,4s <,5six,6si< 
84B LDB $43 

LBNE $97A Fraite les opérat. de relation 
851 a x (code operat. -$C7) + B,ettest de 
….85E concaténation de chaîne 
85F LBEQ $DBB Traitement de la concatenation 
863  PSHS B x — pile 

LSLB 2xx = B 

ADDB Si 3»xx — Bet dépilement de x 

LDX #$096E Debut de la table 

ABX $6E + 3x — X 
86C a 875 Voir ci-après 


La table des opérateurs commence donc en $006E ; elle comprend trois 
octets pour chaque opérateur : 


le premier représente la priorité de l'opérateur (&H7F pour la plus 
grande, celle de la puissance): 
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— les deux autres l'adresse de traitement. 


Les informations concernant tous les opérateurs sont listées en annexe 


2. La routine $883 


Elle calcule une sous-expression aTb; le listing est le suivant: 


883  STB $41 Priorité de l'opérat. courant T 
CMPB x $7F 
BEQ $8F3 Operateur puissance 
DU 1,X 
PSHS U Adresse traitement de T — pile 
CMPB # $51 
BLO $995 Operateur logique (AND à IMP) 


ANDB _# $FE 
CMPB  # $S7A 


BEQ $OSE Operateur MOD et @ 
JSR $939 Opérande a — pile 
JSR $81E Calcule b; bit le T’ suivant 
89D  JSR $24FD b numérique (SN Error sinon) ? 
JSR $95A Depilement dans $6163 a 616B de l’operande en 


haut de la pile (on y trouve donc maintenant 
l'adresse du traitement de T) 


BA3a … Conversion si a et b de types +; permutation s'ils 
8B1 sont entiers 
8B2 RTS Branche au traitement de T 


On observera qu'en $8F3 (opérateur puissance) et $905 (opérateurs 
logiques), on a exactement là même succession d'appels des routines 
$939, $81E et $95A, suivie du branchement à la routine de traitement de 


l'opérateur ($2391 pour ? ; l'adresse située en $7B sert en effet pour les 
opérateurs de relation: voir $97A à 99B, puis $99C). 


Le lecteur observera aussi le dépilement dans Ÿ des adresses de retour des 
routines $939 et $95A, le retour se faisant alors par une instruction JMP 
.YŸ, ceci permet de n'empiler que les opérandes et opérateurs successifs. 


3. La gestion des priorités 
On constate que $883 appelle lui-même la routine $81E, celle-ci range 
donc la priorité de T (opérateur courant) dans la pile, puis lit l'opérande b et 


l'opérateur T' suivants: on arrive alors en $86C, où l'on a: 
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86€ LDA ,S Priorile de T, rangee en $81E 


CMPA  ,X Priorue de F', dans la table 
BHS 5853 Si priorité de T > celle de T' 
BSR $312 b numerique (SN Error sinon) { 
BSR $883 


$853 contient l'instruction PULS A,PC. 


Donc si la priorité de T est supérieure ou égale à celle de T’, on dépile la 
priorité de T et on retourne en $89D (car le JSR $81E en $89A place $89D 
dans la pile); d'où le calcul de l'opération correspondant à T (cas de a *b 
+...). 


Si la priorité de T est inférieure à celle de T', il y a un nouvel appel de $883, 
c'est-à-dire que la priorité et l'adresse du traitement de T sont empilés, 
ainsi que la valeur de l'opérande b; l'opération correspondante ne sera 
donc exécutée que plus tard (cas de a + b *...). 


4. Applications 


Un programme écrit en langage machine peut utiliser les routines de traite- 
ment des opérateurs BASIC, en particulier «, @ et MOD: voir la troisième 
partie. 


On pourra aussi écrire une routine simplifiée de traitement des opérateurs 
(pour + par exemple) utilisable en BASIC et conduisant à des calculs plus 
rapides de 50 %: voir la troisième partie (INC). 
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3 


Etude de quelques 
instructions BASIC 


Nous détaillons ici le fonctionnement de certaines instructions fondamen- 
tales du BASIC TO7. 


Les instructions sont bien sûr traitées sous des formes très voisines sur 
tous les micro-ordinateurs, d'où l'intérêt général de cette étude. 


Celle-ci nous permettra d'envisager diverses interventions sur l'interpré- 
teur, que nous verrons dans la suite de notre ouvrage. 


l. Instruction de branchement 


Le mot GO est traité en $606 ; selon qu'il est suivi de TO ou de SUB, on va 
respectivement en $624 ou en $612, avec $61B9 positionné sur le premier 
caractère suivant. 
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1. GOTO 


L'instruction GO TO « est donc traitée de la manière suivante: 


624 JSR $B8 Premier chiffre de a 
JSR $6FD Calcul de à, range en $6139 
BSR $66E Cherche le £ ue fin de ligne 
LEAX 1,X X pointe sur la ligne suivante 
ELDD $30 ù — D 
CMPD  $2C n' 5 de la ligne du GOTO 
BHI $636 4 > 3 Haapres la ligne actuelle; sinon, chercher 
ävant 
LDX $1C Adresse du debut du programme 
636 JSR $4A4 Retourne dans X l'adresse de la ligne de n°4 (ou 
€ Tsin'existe pas) 
BCS $655 UE Frror 
LEAX 1,X Adresse du # precedant:t 
STX $B9 Positionne le caractere Courant 
RTS Provoque l'execution de à 


Routine $66E£ [ou $66B]): Elle commence par: 


6bB LDB # $3A Code de ”:" 
66D LDA # $5F Ou CERB en $66E 


On a ensuite de $66F à 696 la recherche, à partir du caractère courant du 
programme, à la fois d'un @ et du caractère dont le code a été mis dans B 
(en $66B ou $66E). l'adresse correspondante est placée dans X. 


$66E recherche donc la fin de la ligne courante (6); $66B recherche la fin 
de l'instruction en cours (@ ou $3A). 


Cette routine fondamentale est utilisée chaque fois que l'interpréteur doit 
sauter quelque chose: elle est donc en particulier utilisée aussi par 
RETURN, REM, DATA, ON, IF et FOR. 


Dans le cas des TO7, la routine détecte les caractères de code $22 (guille- 
mets; les caractères de code $3A sont alors ignorés jusqu'aux deuxièmes 
guillemets}, FF (fonction: un octet est alors sauté) et 89 (ceci pour les cas 
où l'on a des IF imbriqués: la mémoire $6171 est alors incrémentée). 


Conséquence immédiate : 


Si l'on intervient dans le programme lui-même, par exemple, pour rempla- 
cer des constantes par leur valeur binaire, ou des variables par leur adresse 
(voir quatrième partie), il ne faudra jamais placer les valeur &HOG, 22, 3A, 
89 ou FF. 
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2. GOSUB et RETURN 


Le traitement de GOSUB a est le suivant: 


612  LDB #$03 On va empiler trois registres 
JSR $336 Test de débordement mémoire 
LDU $B9 Caractère courant 
LDX $2C Numéro 8 de la ligne courante 


LDA #$BC Code de SUB 

PSHS U,X,A 

BSR $624 GO TO: positionne sur ligne «+ 
JMP $2AED Boucle d'exécution du programme 


Lorsque l'interpréteur rencontre RETURN (traité en $640), il positionne S 
sur la valeur en haut de la pile (RG Error si ce n'est pas &HBC), puis arrive 
en $65D où l'on trouve: 


65D  PULS A ,X,U 
STX $2C Restaure 8 (ligne du GOSUB) 
STU $B9 Caractère courant sur « 

663 BSR $66B Cherche fin de GOSUB «x 
CMPX  #$8D96  Ignoré ici (sert pour REM) 
STX $B9 Caractère courant 

66A RTS Onest revenu après GOSUB 


REMARQUE: Les boucles non terminées sont dépilées en $646 (routine 
$2F3 appelée avec &HFF dans $613F: voir paragraphe lil), avant le retour 
au programme principal). 


3. ON 


L'instruction ON expression GO... est traitée en $6D7 (voir $36B5), où la 
valeur x de l'expression est rangée dans $6158 ; l'interpréteur se positionne 
alors sur le x* numéro de la liste (lu et calculé par la routine $6FD)} et se 
branche en $608, c'est-à-dire au traitement de GOTO et GOSUB. 


4. Amélioration possible 


À chaque instruction de branchement rencontrée, il y a calcul de l'étiquette 
et exploration du programme: ceci est refait chaque fois si l'on repasse sur 
le même branchement. 


On verra dans la quatrième partie que ceci peut être évité, ce qui améliore 
nettement la vitesse d'exécution. 
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I. Instruction de test 


L'instruction ÎF expression. est traitée en $697, où l'on trouve: 


697 JSR $81A 

69A à 6AI 

6BË  JSR $1CC8 
BNE $6C8 
CLR $71 

6B7 BSR $663 
TSTA 
BEQ $66A 
JSR $B2 
CMPA  +$8F 
BNE $6B7 
DEC $71 
BPL $6B7 
JSR $B2 

6C8 JSR $B8 
LBCS $624 


JP $2B25 


Calcul de l'expression 

SN Error si pas THEN ou GOTO 

1 — Zsiexp. fausse (9), # si vraie 
Exécute le GOTO ou la suite du THEN; sinon, doit 
être saute 

Va compter nbre de IF imbriqués 
Cherche # ou $3A (voir RETURN) 
ÿ ou 3A? 

Pas ELSE— ligne suivante (RTS) 
$3A : ELSE ou suite du THEN? 
Code de ELSE 

Suite du THEN 

A-t-on des IF imbriques ? 

Pas encore le bon ELSE 

Trouvé 

Caractere courant 

Chiffre branchement (GOTO) 
Traitement des instructions 


REMARQUE: Lors de la saisie d'un programme, ELSE est codé par &HB8F 
précédé de &H3A, d'où l'utilisation de la routine $66B (par BSR $663). 


HE, Instruction FOR... NEXT 


1. Traitement de FOR 


Il est effectué en $1578: après avoir initialisé la variable de contrôle, la 
routine empile successivement : 


— l'adresse du O ou &H3A terminant l'instruction FOR (2 octets), 


— le numéro (2 octets) de la ligne courante (grâce à ces deux informa- 
tions, on pourra se repositionner après le NEXT sur la première instruc- 


tion de la boucle), 


— la valeur finale de la variable de contrôle (4 octets), 


— le signe du pas d'incrémentation (1 octet), 


72 


— la valeur du pas (4 octets) 
— le type du pas (1 octet, égal à 2 ou 4), 


— l'adresse du NEXT (2 octets) correspondant au FOR (trouvé par la 
routine $16A0D décrite ci-après), 


— l'adresse de la variable de contrôle (2 octets), 
— la valeur &H81, c'est-à-dire le code de FOR (1 octet). 


La routine positionne ensuite $612C avec le numéro de la ligne du NEXT 
($61B9 est déjà positionné sur le NEXT, par la routine $16AD) et appelle 
en $1692 la routine $1604, correspondant au traitement de NEXT sans 
incrémentation de la variable de contrôle (grâce à la mémoire $6185 initia- 
lisée ici à &H4F et non à 6). 


L'exécution se poursuit donc soit après le NEXT, soit à partir de la première 
instruction de la boucle. 


REMARQUE : Cet appel de la routine du traitement de NEXT (sans incrémen- 
tation) n'est pas effectué par tous les BASIC ; la boucle est alors toujours 
exécutée au moins une fois. 


2. Traitement de NEXT 


NEXT est traité en $1605, où la mémoire $6185 est initialisée à @. 


Puis en $161A est appelée la routine $2F3, qui balaye la pile S à partir du 
sommet pour trouver le FOR correspondant au NEXT :; le BASIC Microsoft 
autorisant en effet les sorties anormales de boucle par GOTO, le bon FOR 
peut ne pas être situé au sommet de la pile. 


Le registre S est alors modifié pour pointer sur la valeur &H81 correspon- 
dant à ce FOR, ce qui dépile les boucles dort nn est sorti anormalement: 
puis les valeurs empilées sont récupérées. 


La variable de contrôle est alors incrémentée (sauf si $6181 est différent 
de 0) et le test de fin de boucle exécuté. 


S'il est vrai, le numéro de la ligne du FOR est récupéré (en $1622. par LDX 
15,S et STX $2C), puis l'adresse de la première instruction de la boucle 
ipar LDX 17,8 et STX $B9): il y a enfin branchement en $2AED, c'est-à- 
dire à la boucle d'exécution du programme; l'instruction exécutée est donc 
la première après le FOR. 


Si le test est faux, les 19 octets empilés par le FOR sont dépilés (en $166E) 
et il y a encore branchement en $2AED : l'exécution se poursuit donc après 
le NEXT. 
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3. La routine $16AD 


I! s'agit d'une deuxième routine d'exploration du programme (la première 
étant $66B ou $66E): son point d'entrée est en fait soit en $16AC ($617@ 
est alors initialisé par &H4F), soit en $16AD qui initialise $617Q à O. 


Le programme est ici exploré à partir du caractère courant jusqu'à trouver 
un octet contenant @, &H3A (”’:"}), &H8F (ELSE) ou &HC4 (THEN). 


Selon la valeur de $6179, la routine teste si le caractère suivant est FOR 
(&8H81) ou WHILE (&HAF): si c'est le cas, on a deux boucles imbriquées : 
le registre B est alors incrémenté et il y a retour au début. 


Si l'on a un NEXT (&H82) ou un WEND (&HB), toujours selon la valeur de 
$6179, la routine examine si c'est le bon: pour celà, B est décrémenté et il 
y a retour au début si l'on n'a pas 6. 


Si c'est le cas, la routine retourne le numéro de la ligne dans $6178: le 
caractère courant est positionné sur le NEXT ou le WEND. 


Conséquence immédiate : 


Si l'on intervient dans le programme lui-même, on ne devra jamais intro- 
duire des valeurs &H3A81, ou &H8F81, ou &HCA4AF, etc. 


4. Applications 


La routine $16AC trouve le WEND correspondant à un WHILE. 


HN sera donc très facile de créer les routines complètes de traitement de 
WHILE et WEND: voir 3° partie. 


IV. Les instructions graphiques 


1. Le graphisme des TO7 
L'écran est divisé en 200 lignes de 40 segments de huit points: chaque 
segment est décrit par deux octets de la mémoire écran. 


Celle-ci est en effet composée de deux blocs de 8K-octets situés à la 
même adresse $4@00 : ils sont sélectionnés par la valeur du bit @ d'un port 
d'un PIA (port C du circuit 6846), lui même situé à l'adresse $E7C3. 
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— la valeur 1 sélectionne la mémoire de ‘’ forme”; chaque bit d’un octet 
représente alors un point de l'écran, qui appartient soit à la forme (bit 
égal à 1), soit au fond (bit égal à O). 


En général, la forme est constituée par un message ou un graphisme. 


Exemple: 


146 FOHE &HEFCS,FEEKCEMHEVC32 OF 1:ADR=LH49Gg+CRS+L#+40 
119 FOKE ADK,2%C7-C MOD 52 

affiche le point de coordonnées (C.L), C étant la colonne (9 à 319) et L la 
ligne (9 à 199). 


REMARQUE: La routine $F161 du moniteur du TO7 met à 1 le bit @ de 
$E7C3 ($F328 pour le TO7-70). 


— la valeur ® sélectionne la mémoire de ‘’ couleur”; chaque octet repré- 
sente alors la couleur de la forme (dans les bits 3,4,5) et du fond (bits 
9,1,2) d'un segment de 8 points. 


Exemple : 

268 FÜKE SHEFL3, FEEKS£MHETLZ 3 HHD &HFE:FOKE ACF, £HGF 
affiche le point précédent en rouge (code 1--&B@@1), le fond du segment 
étant blanc (code 7-&B111). 


REMARQUE 1 : Sur le T07-70, les bits 6 et 7 de la mémoire couleur sélec- 
tionnent respectivement la couleur pastel pour la forme et pour le fond s'ils 
sont mis à @: ils sont toujours à 1 sur le TO7. 


REMARQUE 2 : $E7C3 contrôle aussi entre autres l'affichage en majuscules 
ou minuscules (bit 3}, et la couleur du cadre de l'écran (bits 4,5 et 6): voir 
annexes. 


2. Line (x3, y:) — (x, y2) 


L'instruction trace une droite entre les points P1 (x,y1} (qui peut être omis) 
et P2 (x2,y2}; le traitement est le suivant: 


34FB  BSR $354B AfficheP:;P; —+ Xet\ 

LDX $6576 Abscisse de P; (colonne) 
3568  LDY $6578 Ordonnee de P, (ligne) 
3594  JMP $E8gC Trace (DRAWS$ du moniteur) 
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Routine $354B : elle est utilisée par les 4 instructions LINE, BOX. BOXF 
et PSET, quel que soit le mode (graphique où caractère). 


La routine place d'abord dans les registres X et Y les coordonnées du 
dernier point affiché; elles sont remplacées par les coordonnées de P: si 
elles figurent dans l'instruction (routine $34CB):; X et Ÿ sont alors placés 
respectivement en $6572 et $6574, puis rangés dans la pile. 


Les coordonnées de P2 sont ensuite lues (toujours par $34CB), puis 
stockées en $6576 et $6578. 


Si l'instruction opère en mode caractère, les attributs sont traités en 
$3574, qui se termine par un JMP $E833 affichant un caractère (routine 
CHPLS du moniteur). 


Si l'on est en mode graphique, l'attribut éventuel couleur est traité en 
$35C1; s'il ne figure pas dans l'instruction, la routine prend (en $35B7) la 
couleur forme courante contenue dans le registre moniteur $603B 
(COLOUR) ; dans les deux cas, la couleur est rangée dans le registre moni- 
teur $6038 (FORME). 


X et YŸ sont enfin dépilés, ce qui restaure les coordonnées de P1, le registre 
$6941 (CHDRAW) est mis à @ et il y a branchement en $E8@F qui affiche 
le point graphique (routine PLOTS$ du moniteur). 


3. BOX et BOXF (x y1)  (xX2, y2) 


L'instruction BOX est traitée en $3507, où la mémoire $6571 est initialisée 
à @ ou à &HA46 si l'instruction est suivie de la lettre F. 


Il y a ensuite appel de la routine $354B, qui range donc entre autres x: et y: 
dans X et Y: selon la valeur de $6571, il y a branchement en $351A pour 
BOX et en $352C pour BOXF: on a alors: 


351A LDX $6576 x + X;onaY y: 
BSR $3504 Trace drte. horiz. P--(x2, y1) 
BSR $3500 Trace drte. vert. (6, y3)-P) 
LDX $6572 X1 — X; on a Ÿ ÿ2 
BSR $35g4 Trace drt. horiz. P—(x4, ÿ2) 


LDY $6574 ÿ1 —+ Y:onaX-x: 
352A BRA $3594 Trace drt. (x3, y) Pret RTS 


La routine $352C (BOXF) opère en traçant la droite horizontale d'ordonnée 
y1, puis celle d'ordonnée y: + 1 (selon que y2 est supérieur ou inférieur à 


Yi}, etc…, jusqu'à arriver à y2. 
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Applications : 

En s'inspirant des routines ci-dessus, on pourra facilement écrire des 
routines dessinant par exemple des losanges, où même des cercles 
“pleins”: voir troisième partie. 


4. PSET (x, y) 


C'est l'instruction la plus simple : elle est traitée en $34EC, où l'on trouve: 


34EC  BSR $34CB x + X,y — Y 
BSR $34F1 
RTS 


34F1  PSHS X,Y 
BRA $3565 Traite couleur; affiche P 


$3565 appartient en effet à la routine $354B. 


Les autres instructions 


L'étude accomplie jusqu'ici débouche comme nous allons le voir sur un 
grand nombre d'applications. 


Il reste cependant bien d'autres instructions à étudier, que le lecteur choi- 
sira en fonction de son intérêt personnel: il s'aidera pour celà des listes des 
principales routines et adresses du BASIC, données en annexe (listes non 
exhaustives !} 


Par exemple, si l'on désire lever la protection d'un programme, on devra 
étudier le traitement de LIST (ou de PEEK ou POKE par exemple): on cons- 
tatera alors que la protection est assurée par la routine $2D29, qui teste la 
mémoire $61A2. 


La protection sera donc levée en chargeant (par LOADM, puisque POKE 
est interdit) la mémoire $61A2 ; on devra pour celà enregistrer préalable- 
ment l'octet $61A2 sur cassette (par SAVEM ‘nom, &H61A2, &H61A2. 
@). 
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4 


Méthode pratique 
de décodage 
d’un interpréteur 


Nous avons déjà largement expliqué, en particulier au chapitrel, la 
démarche à suivre pour décoder un interpréteur BASIC quelconque, à priori 
totalement hermétique !.…. 


Nous résumons ici cette méthode, opérant avec 5 programmes BASIC de 
cinq ou six lignes chacun et un peu de réflexion. 
1. Début d’un programme 


Le programme 1 permet de trouver l'adresse B du début d'un programme, 
la recherche devant commencer à l'adresse À du début de la RAM (ligne 
39 à modifier). 


2. Codage d’un programme 


Les octets situés à partir de B seront examinés grâce au programme 2 : on 


déterminera ainsi le codage des instructions et de quelques mots-clés du 
BASIC. 
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3. Tables des mots-clés du BASIC 


Le programme 1 permet de trouver dans le BASIC (ligne 30 à modifier) 
l'adresse C du début de la table des noms d'instructions, et l'adresse D du 
début de la table des noms de fonctions ; on cherchera pour celà (ligne 29 à 
modifier) les (n-1) premières lettres d'un mot-clé de n caractères situé vers 
le début de la table à localiser. 


On en déduira les codes de tous les mots clés du BASIC, grâce au 
programme 3 (valeurs &H80, &HD5 et B6 de la ligne 240 à modifier, ainsi 
que la ligne 220). 


4. Utilisation des tables de noms 


Le programme 4 permet de trouver dans le BASIC et dans la RAM, en prin- 
cipe entre À et B {lignes 320 et 330 à modifier) les valeurs C et D. 


S'il existe une adresse E de la RAM contenant C ou D, il suffira en principe 
de modifier les octets E et E+1 pour que le BASIC puisse utiliser un autre 
vocabulaire (à créer). 


5. Tables des adresses 


Le programme 5 permet de trouver dans le BASIC (ligne 41@ à modifier) 
l'adresse F du début de la table des adresses des instructions. 


On disposera alors déjà de toutes les adresses de traitement des instruc- 
tions du BASIC, que l'on pourra donc étudier. 


6. Recherche des octets contenant l’adresse de la table 


Le programme 4 permet de trouver dans le BASIC et dans la RAM la 
valeur F (si on re la trouve pas, on cherchera une valeur comprise entre F-d 
et F+d, avec d=—1@ par exemple): on obtient une ou plusieurs adresses G 
($38AC et $6204 pour le TO7). 


7. Routine de traitement des instructions 


On examinera les octets situés ‘’autour” de chaque adresse G trouvée à 
l'étape précédente. 
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S'ils contiennent pour une de ces adresses le calcul de : x=(F+d) + (C-C@) 
*2 (d pouvant être éventuellement différent de @, et CO étant le plus petit 
code d'instruction BASIC, c'est-à-dire en principe toujours &H86), on a 
trouvé la routine de traitement des instructions : on va donc directement à 
l'étape suivante. 


Si l'on ne trouve pas le calcul précédent, le programme 4 permet de trouver 
la (ou les) valeur G précédentes dans la mémoire (ligne 310 à modifier) : on 
obtient donc une ou plusieurs adresses H (si l’on ne trouve aucune adresse 
contenant G, on cherchera en modifiant la ligne 36@ une valeur comprise 
entre G-l et G+l). 


Pour les TO7 par exemple, on obtient la seule adresse $2B36. 


On doit forcément trouver alors autour” d'une de ces adresses H le calcul 
de: 


y=([GI + d) + (C-CO) * 2 


ce qui correspond à la routine de traitement des instructions ([G] désigne le 
contenu de la mémoire d'adresse G, c'est-à-dire F). 


8. Boucle d'exécution des programmes 


Elle est en principe toujours située juste avant la routine de traitement des 
instructions (si ce n'est pas le cas, on cherchera dans le BASIC l'appel de 
cette routine, grâce au programme 1). 


9, Les routines fondamentales 


L'étude de l'instruction d'affectation donnera enfin l'adresse des routines 
de recherche d'une variable, de traitement d'un opérande (qui traite elle 
même les fonctions) et du calcul d'une expression (où l'on trouvera le trai- 
tement des opérateurs). 


Ceci terminera le décodage de l'interpréteur et ouvrira la porte aux 
applications. 
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Troisième partie 


MODIFIER ET COMPLETER 
LE BASIC 


Nous avons vu que les adresses des principales tables du BASIC TO7 sont 
situées dans la RAM, et donc modifiables. 


De même. beaucoup de routines ($A48, $770, etc...) passent” par la 
RAM, par exemple en appelant un sous-programme constitué d'un simple 
RTS (situé entre $626D et $62A8); ces routines pourront donc être 
déroutées. 


On pourra donc appliquer facilement, bien sûr après adaptation, les modifi- 
cations que nous allons envisager à tous les micro-ordirateurs dont l'inter- 
préteur remplit les mêmes conditions, ce qui est le cas le plus fréquent; 
signalons d'ailleurs pour ceux dont le BASIC est entièrement figé en ROM 
que nous verrons dans la quatrième partie comment intervenir tout de 
même sur le fonctionnement de l'interpréteur. 


Après avoir présenté tout d’abord une “récréation” consistant à remplacer 
le BASIC d'origine par un BASIC entièrement francisé, nous décrivons la 
réalisation de deux compléments classiques et utiles n‘existant pas sur les 
TO7: conversions radiants-degrés et boucle WHILE-WEND. 
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Nous donnons ensuite une méthode générale permettant de créer de 
nouvelles instructions, que l’on pourra utiliser exactement comme les 
instructions initiales. 


Nous appliquons tout d'abord ceci pour créer les deux instructions INC et 
SWAP d'incrémentation rapide et de permutation de variables. 


Nous décrivons ensuite la réalisation de deux idées originales, du moins 
pour les TO7, c'est-à-dire la création de sous-programmes à variables 
locales (ce qui supprime un des plus graves défauts du langage BASIC 
classique), et surtout l'utilisation de ‘SPRITES” (objets programmables 
mobiles), qui comblera le principal manque du BASIC TO7 en matière de 
graphismes. 


Signalons enfin que notre but ici n’est pas de donner toutes les modifica- 
tions possibles, ou de recréer par exemple le BASIC disque ! les modifica- 
tions présentées nous ont semblée à la fois les plus utiles et les plus 
“pédagogiques”; il appartiendra au lecteur d'en imaginer et d'en réaliser 
d'autres, chose parfaitement possible à partir du moment où l’on connaît 
bien son interpréteur…. 
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Créer et utiliser 
un BASIC français 


On a vu qu'il suffit de modifier le contenu des 6 octets situés en $6201 et 
$6206 pour pouvoir utiliser respectivement des noms d'instructions et de 
fonctions différents de ceux d'origine. 


On peut bien sûr en profiter pour créer un vocabulaire français simplifié, qui 
facilitera beaucoup l'apprentissage de la programmation, par exemple à de 
jeunes enfants : EFFACE ou DEMANDE seront compris et mémorisés plus 
facilement que CLS ou INPUT, et DEFDBL ou HEX$ ne sont sans doute pas 
indispensables pour un débutant ! 


I. Création du nouveau vocabulaire 


Nous proposons le programme suivant, créant un sous-ensemble francais 
déjà très complet des instructions et fonctions BASIC les plus courantes. 


83 


FEN BASIC francais 
CLERAF:, &H 7 CAE 


DRE EE Table des instructions... .... 
=LHSG: C1=LHDS : ACRELHPCES : GO SUE 


eu 
GG 
a à] 
È 


CLHB: C1SRHRE : ADRLEN7FO0. CO SUB 200 
POKE ADF: & 


D SES QUNUSOUNLE 


QGRAGDQUDONSOSDORNEGIES 


à ‘Initialisationsévoir Flus loin 
EHC 
Fate etes Creation d’une table...,.... 
FOR HUM=ECG TI C1 
PEAG 4$ 


FOR K=1 TO LEH: AS 1 
CODE=ASCE MIDS AS, K à 
POKE ADR COGE : HDR=HDR +1: EXT 


1 MO ND RUN me me A 2 Ti UN fa Lo Mi Tu me 


“Lerniere lettre ou mots inutilises 

CODEZASCS RIGHT SE AS, 1 3 +8 HE 0: K=1 

IF YALIHSI SA THEH K=YVALE A$ 2: COCE=ZLSHEFF : HUMZHUM+K.- 1 
FOR L=i TO K 

POKE ADF. COCE : ADRSADR +1: HEXT 

HET HUM:RETURFH 


nm SO CN BR Co lu ee QU CN BR xt FU me Gin CN 


Yacabulaire... 
DATA FIH,REFETE, ENCORE. COHHEES, TAËLEAU, CHERCHE , FRAIS 
: A. DEMARRE, "SI ", RESTAURE, REYIEHS, REMARQUE, ‘ , ARRETE. SI 
HOH, 6, SELÜH, 4 
628 DATA EHLEYE.CURSEUR, EFFACE. 1.CESSINE.Z,E*XECUTE, SOHH 
E, COULEUR, TRAIT,BOITE.,S3. GARHIS CRIS CONTINLE LISTE.FES 
EPYE,Z,HETTOIE. COPIE, CHARGE. 3. FEGARGE. STYLO. JOUE 

639 CATA COLOHHES, JUSOUA, FAIRE: 7 ALORS, 1,FAFi+i- Hs Ts 
ET, OU.5,%,=,4 
648 CATA SIGHE, 1.4B$S, LIBRE. FACIHE. 6. LOHGUELIF:, 1, AL. ASC. 
CRFACTS, 1, EHTIER.5S, MAHETTE. BOLITOH. 1: GALICHES, CROITES EXT 
FAITS.2, HHSAFL. CLAVYIERS, DEMAHLE . 1. FOIHT. ECFAH. 2 


UT On Lo Go Dé Co CO Le AI la 


Nous donnons, ci-après, un petit programme donnant la table de traduc- 
tion; les principales instructions sont (un terme placé entre crochets est 
facultatif) : 
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REPETE variable — X JUSQU'A Y [PAR Z] 


ENCORE [variable] (FOR...TO..STEP; NEXT) 
SI expression ALORS..SINON...(IF...THEN...ELSE...) 
VA FAIRE numéro 


REVIENS (GOSUB:RETURN) 
VA JUSQUA numéro (GOTO) 


REMARQUE 1 : Les chiffres dans les DATA représentent le nombre de mots 
consécutifs que l’on supprime: ils permettent d'obtenir les codes corrects 
pour nos mots-clés. 


REMARQUE 2 : Il est bien sûr possible de compléter le vocabulaire donné ici, 
ou d'utiliser des mots différents: il suffira pour celà de modifier les DATA. 


ll faudra toutefois alors prendre garde à ne jamais réemployer comme 
premières lettres d'un mot un mot déjà défini, de code inférieur. 


Par exemple, si l’on emploie LIS pour traduire READ, le mot LISTE (LIST) 
sera compris comme LIS TE (READ TE), d'où une erreur 


Ceci explique aussi que l'on ajoute dans la table un espace après SI (à 
cause de SINON), qu'il sera donc obligatoire de toujours écrire. 


I. Initialisation-utilisation 
1. Sous-programmes d’initialisation 


Pour rendre notre vocabulaire opérationnel, il suffit de changer les adresses 
des tables, ce qui sera fait automatiquement par la routine suivante: 
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INITFR CC,7D28 LDD # $7D28 


FD,6242 STD $6292 Table des instruct. 
CC,7F08 LDD # $7F0Û 

FD,6297 STD $6297 Table des fonctions 
39 RTS 


Un simple EXEC INITFR rendra donc votre vocabulaire opérationnel. 


On peut aussi souhaiter revenir à un moment donné au vocabulaire 
normal: ceci sera fait par la routine suivante: 


INITANG CC,8892 LDD # $g92 
FD,6292 STD $6242 
CC#1CF LDD # $1CF 
FD,6287 STD $6297 
39 RTS 


Pour implanter ces deux routines (respectivement en $7D01 et $7D11, où 
l'on a réservé 31 octets), on reprendra le programme BASIC précédent, 
dans lequel on ajoutera (voir 1°"° partie): 


Forte ee Sers OfINTELAl LS ATlON:: SSL 
FÜR KE=£HPDG1 TO £&HPC1D 
REAC AS:FOKE F, VALLE "EHT4RS 5: NEXT 


‘Initialisations... 
DATA CC, FL,20.F0,62,2,00, rF:0.F0,62.:7.:39.12.12.12 
DATA CC,U,327,FD,62.2,0C,1,CF,F0,62,7, 39 


Ni me Er Uni re M 
CURE UT 


UD M Ci ms ré 


REMARQUE: Les pointeurs $6202 et $6297 peuvent bien sûr aussi être 
initialisés par des POKE. 


2. Utilisation 
Après avoir fait exécuter le programme BASIC précédent complété par les 
instructions ci-dessus, on enregistrera sur cassette les octets de $7D91 à 


$7EFF; on fera pour celà, une fois pour toutes: 


SAVEM FRANÇAIS”, &H7D81, &H7FFF, @ 


B6 


Lorsqu'on voudra travailler en français, il suffira donc de lire la cassette 
(6 secondes de lecture seulement) par: 


LOADM FRANÇAIS” 


on fera ensuite, par exemple en mode direct: 
CLEAR, &H7D88: EXEC &H7D91 
on disposera alors de tous les mots-clés français pour écrire son propre 


programme. 


On peut noter qu'un programme écrit normalement sera traduit automati- 
quement en français par ce procédé, lorsqu'on demandera LISTE! 


De même, un programme écrit en BASIC francais sera traduit automati- 
quement en BASIC normal par EXECUTE &H7D11:LIST. 


A titre d'exemple, après avoir fait exécuter le programme BASIC précédent 
et fait EXEC &H7D01, vous aurez la surprise de voir ce programme listé 
par la commande LISTE sous la forme suivante: 


19 REMARQUE BASIC francais 
26 FESEFYE , &H7DO6 


SU y sure Table des instructions... ... 
46 CH=4H8ÿ:Cis8HDS : ADR=LH7/DZG: VA FAIRE 20h 


Set eh Eire Table des fonctions... ...... 


EE CA=LHEG : C1SÈLHRE : ADR=ZEHPF DO: VA FAIRE 2Z6ù 
7 GHFHIS ADF.6 

35 ‘ 

NS (SAR S.F. d'initialisation....... 


1168 FEFETE K=£&H7061 JUSGURA &H7C1C 
129 CHERCHE 4$ GHEHIS K, VAL "RH" 4+H$ 2: ENCORE 
1559 E IH 


195 
Dates sas Lreation d'une table....... 
PÉPÈTÉ HUMECE JUSQUA Ci 
CHERCHE 4$ 


FEFETE K=1 JUSGQUA LOMSUEURS HS 1-1 
LOCE=HESLS EXTERITS AS, KE 3 
LAPHIS AUR, CODE ADR=<ADE +1: ENCORE 


‘Derniere lettre ou mots 1nutilises 
COCEZSASC: DROITESS A$, 1 2 + HE KE 
SI VALIASI<>D ALORS K=YAL: AS 2: CODEZ£LHFF : NUMEHUM+K- 


di es 9 Led C2 Pair Pen FN Ps 2 Po N2 
nn Nu ee Qi KO On B Wu me Gi 
SSD UC GG 


in 


etre 
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Il. Table de traduction 


Elle est obtenue par un petit programme BASIC, qui liste les mots français 


et anglais correspondants : 
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FIH 
ENCORE 
THEÉLEAII 
FAIS 
L'EMARFE 
FESTAUFE 
FEMARQUE 
ARRETE 
SELON 
CURSEUR 
CESSIHE 
SOMME 
TFAIT 
GAFHIS 
CONTIHUE 
FESERYE 
COFIE 
FEGARDE 
NIUE 
USQUR 
ALORS 

+ 

* 

OU 


SIGME 
LIBFE 
LONGUEUR: 
ASC 
ENTIER 
BOUTON 
CROITES 
HASARC 
DEMANDE 
ECRAH 


: EHC 

: HET 
:CIn 
:LET 

: FUH 

: RESTURE 
:RENM 
:STOF 

: OM 

: LOICATE 
: FSET 


EEEF 


:LIHE 
: FOFE 


COMT 


:CLERR 
SAVE 

: IHPEH 
FLAT 

: TO 

: THEN 


: FMC 
: IHEUT 
: SCREEH 


REFETE 
COHHEES 
CHERCHE 
LA 

SI 
FEVIENS 


SINOH 
ENLEVE 
EFFACE 
E“ECUTE 
COULEUR: 
BOITE 
ÉCRIS 
LISTE 
HETTOIE 
CHARGE 
ST''LO 
COLQHHES 
FAIFE 
FAF: 


ABS 
FRACIHE 
“AL 
CARACTS 
MAHETTE 
GAUCHES 
EXTRAITS 
CLAYIERFS 
FOIHT 


AND: 


DR à 


FF: 

: DATA 

: FEAT 

: GÛ 

°IF 

: FETUFH 


:ELSE 
: DELETE 
‘CLS 
:EXEC 
: COLOP: 
: BOX 
:FRINT 
"LIST 
: HEU 

: LOC 
: FEH 

: THE 

: SUE 
:STEF 


+ 
< 


:AËS 
:SÛIF 
: VAL 
: CHF 
"STICE. 
:LEFTS 


nICS 


:IHKETS 
:FOIHT 


2 


Créer de nouvelles 
fonctions 


Nous présentons ici une méthode générale permettant de créer à partir du 
BASIC de nouvelles fonctions, que l'on pourra ensuite utiliser exactement 
comme les fonctions disponibles au départ. 


L. Principe de la méthode 


On pourrait appliquer ici la méthode que nous décrirons en détail au 
chapitre 4 et qui nous servira à définir de nouvelles instructions. 


Nous avons vu en effet, lors de l'étude du traitement des fonctions, qu'un 
code supérieur à &HFFA6 provoque le branchement à l'adresse située en 
&6213 (normalement $7F3, d'où un SN Error‘); si l’on ajoute donc de 
nouveaux noms de fonctions à la fin de la table des mots-clés, il suffit de 
placer la valeur «a en $6213 pour que l'interpréteur se déroute en a en 
rencontrant une nouvelle fonction; le traitement serait donc écrit en «. 


Cette méthode est la meilleure lorsqu'on doit créer un nombre relativement 
grand (par exemple 5 ou 6) de fonctions nouvelles. 
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Dans le cas contraire, il est beaucoup plus simple d'utiliser le fait que le 
BASIC décode comme on l'a vu le mot-clé FN (correspondant normale- 
ment à des ‘fonctions utilisateurs"), traité en $623C (le ‘traitement 
consistant en un JMP $7F3 qui provoque un “SN Error“). 


On placera donc simplement en $623C une instruction JMP a qui provo- 
quera le déroutement de l'interpréteur à chaque rencontre d'un nom de 
fonction commençant par FN; les traitements correspondants seront bien 
entendu implantés en «a. 


REMARQUE : Nous verrons au chapitre IV que l'instruction placée en $623C 
n'est utilisée que par FN: nous ne perturberons donc pas le fonctionnement 
de l'interpréteur en la modifiant. 


Il. Exemples d'applications 


1. Conversions radiants-degrés 


Le principe décrit ci-dessus va être appliqué à la création des deux fonc- 
tions suivantes, absentes du BASIC TO7: 


—  FNR(X): renvoie la valeur réelle exprimée en radiants correspondant à 
la valeur de l'argument X exprimé en degrés: 


—  FND(X): fonction inverse de la précédente; elle convertit la valeur de 
l'argument X exprimé en radiants en une valeur exprimée en degrés. 


Il est évident que les routines données ci-après utilisent au maximum les 
routines de l'interpréteur, par exemple pour vérifier la syntaxe et calculer 
l'argument ($7DE), puis le convertir en réel ($252B—CSNG)} et l'envoyer 
dans le second accumulateur flottant situé en $6163 ($1C81). 


Nous utilisons aussi bien sûr, les routines de traitement des opérateurs » et 
/, situées respectivement en $25B6 et $920 : rappelons que notre étude de 
l'interpréteur nous a montré que ces routines doivent être appelées pour 
des arguments réels avec le premier opérande placé dans le second 
accumulateur flottant et le second opérande dans l’accumulateur flottant 
“normal” situé en $6155 (on peut d'ailleurs remarquer qu'il faut faire 
l'inverse pour des arguments entiers: voir $87A). 
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Le traitement des deux fonctions est donc le suivant: 


BA4Q 30 B2 JSR $sez R ou D 

BA42 34 82 PSHS fi 

BAd44 SD B2 LISR $B2 Pointe sur ‘’(” 
BR46 BD 87DE JSP $O7DE Argument — AC flottant 
BA4S BE 252B JSR $257B Conversion en réel 
BA4C BC 1C81 JSF $1C61 AC flottant + $6163 
BA4F CC 7B8E LDD #*$7BSE Début x/180 

BAS2 CC 55 STD $55 

BAS4 F SD CLR SC Signe + 

BAS6 CC FA3S LDD #SF435 Fin r/180 

BR59Q DD 57 STD 557 

BASE 35 Ge PULS À R ou D? 

BASD 81 S2 CMPR #85? Code de “R” 
BASF 26 a3 BNE $SBRE4 D? 

BRé61 ?E 25B6 JF $25B6 Traite » et RTS 
BR64 81 44 CMPR  #644 Code de “D” 
BR66 26 93 BNE SBREE Ni R, ni D 

BA68 VE a9s2a JP $u924 Traite / et RTS 
BR6B ?E 97F3 MP $SGrF3 SN Error 


REMARQUE: Les 2° et 3° colonnes représentent le code objet, à implanter 
en mémoire; il a été bien sûr facilement établi à la main”, à partir des 
tableaux que l'on trouvera en annexe, donnant les codes des instructions et 
les parties adresses de certaines opérations particulières (adressages rela- 
tifs ou indexés, PSHS, TFR, etc...). 


2. D’autres idées 


Toujours comme fonctions de calcul, on pourrait écrire facilement une 
fonction ‘Arc tangente” (formule donnée dans le manuel de référence 
BASIC), ou une fonction “affine” rapide : FNA (a,b,X) calculerait automati- 
quement aX+b, environ deux fois plus rapidement que par a » X + b: voir 
pour celà INC, au chapitre V: SOR étant très lent, on pourrait encore créer 
une fonction ‘racine carrée entière”, par exemple à partir de l'algorithme 
du chapitre 3. 


On pourrait aussi créer une fonction (souvent appelée DEEK) retournant la 
valeur contenue dans les deux octets situés à l'adresse spécifiée par l'argu- 
ment, ou retournant la plus grande (ou la plus petite) valeur d'un couple 
d'arguments. ou encore recherchant l'occurrence d'une valeur dans un 
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tableau numérique où alphanumérique : FNO (Nom de tableau, valeur) 
retournerait le rang où se situe la valeur, ou —1 par exemple. 


Toutes ces fonctions peuvent être bien entendu écrites en BASIC, par 
exemple par 256 » PEEK(I) + PEEK(1+1) pour DEEK: les écrire une fois 
pour toutes en langage machine et les obtenir par FNx est évidemment 
ensuite beaucoup plus simple et beaucoup plus rapide à l'exécution! 


Ill. Création des nouvelles fonctions 


On pourrait bien sûr implanter la routine précédente comme on l'a fait au 
chapitre | pour les sous-programmes d'initialisation (lignes 11 et 120): 
l'adresse d'implantation serait alors placée en $623D par deux POKE. 


Nous préférons donner le programme suivant, qui permet de ranger à des 
adresses quelconques de la mémoire un nombre lui-même quelconque de 
routines écrites en langage machine, et celà comme nous allons le voir de 
la manière la plus rapide, la plus souple et la plus “lisible” possible. 


Ce programme sera utilisé pour toutes les applications à suivre (nous le 
complèterons au chapitre IV pour créer de nouveaux mots-clés), en respec- 
tant à chaque fois la procédure suivante: 


— chaque routine sera écrite en DATA, à partir de la ligne 2000. les 
valeurs hexadécimales du code objet, toujours écrites sans &H pour 
une commodité maximale, seront précédées de l'adresse d'implanta- 
tion de la routine, qui devra elle être écrite avec &H (évitant ainsi toute 
confusion ou oubli); 


pour faciliter la relecture et les corrections éventuelles, les codes hexa- 
décimaux pourront être regroupés par 2 ou 3 par exemple ; on pourra 
donc traduire: 


e JMP $25B6 par 73,25B6 ou 7325B6 
e l'adresse $7F3 indifféremment par 7F3 ou 67F3 


e la valeur #$0001 (2 octets) par @@1 ou G991 (pas O1 bien sûr, qui 
n'occuperait qu'un octet). 


— le premier DATA de chaque routine commencera par un mot (guille- 
mets inutiles) identifiant la routine, qui précèdera donc l'adresse 
d'implantation et les codes: 


— la liste des codes de chaque routine sera terminée par une phrase 
commençant par FIN (“FIN fonctions” par exemple). 
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Exemple: Nous écrirons donc ici: 


2088 DATA Fonctions, &HBA4$,9D,B2,34,2,9D,B2 
,BD,7DE,....,7E,7F3,FIN Fonctions 


(l'adresse BA4Q sera bien entendu remplacée par 7A40 si l'on ne dispose 
pas de l'extension mémoire, ou par $DA40 pour le TO7-7@). 


— la dernière routine sera suivie d'un DATA contenant une phrase 
commencant par FIN ("FIN des routines”’, par exemple), qui arrêtera le 
programme ; 


— enfin, ces nouvelles routines doivent toujours être activées par un sous- 
programme d'initialisation, dont le DATA sera placé en premier (en 
1700) et écrit exactement de la même manière. 


Dans le cas de nos fonctions FNXx, le sous-programme est simplement : 


INITE CC,BA4ÿ LDD #$adr. Début routine 
FD,623D STD $623D 
39 RTS 


Le programme complet est donc le suivant: 


1848 FE Creation de routlines 

1814 CLERF. 2HERHAA ou CABAE TO où C'AGACTO?-74 
1424 CEE=ZSÉXFEEKRS 2LH612H +FEEKC£LHEIZE +2 FIH=ZSEXFEEr: & 
HÉSRE + FEEFS &H6 SAT 2+ 1 : ADROELEE 

18934 FERC HOMS:IF LEFT NOM, 52="FIN" GOT(O]394 


1844 FERD ATK "Adresse d'implantation 
1459 IF HDCR<ADRA OF ADRZFIH THEH FEIHT'ERREUR D'ACFESSE 
."-EHC 


1884 FRINT "ROUTIHE ":NOMS 
1874 FFIHT" Début :";HE%X SC RCE :, 
1625 
119 ‘Lecture et ransement d'une routine 
1114 S=t FOR ISHCE TO FIH 
1120 FERDG AS. L=LEN AS: IF LEFTSCRS.35="FIH" GOT 1264 
IFL<=2 GOTO1164 

É=£-L MOD Z:Y=VALS MEH"4LEFTSC HE. K I FOKE 1.V:S264+V4 
: I: +1 
L=L-Kk : H$S=RIGHTSC RAS, L 1: SOTO1129 
W=VYALS "EH" +4$ 5: 5254" FÜKE I.Y:HEAT 
FRINT" Fin: "HE SE 1-12, 

FRIUT" Somme"; 
29 FRIHNT :ADRG=I 


PoNitoe é eds bé 
SE Gi © Gt 


mere gQ il Bien 
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1254 GOTO1GEA ‘FRoutine suivante 

1:44 ‘ 

1535 

DAS TE LS MR TERMINÉS ENS Sas Bree 

1614 FEIHT " ImPlaatation terminee...":PHIHT" Enregistr 
er de ":5HEXS DEB2:" 3 ":HEXSCHD#G-12,;" Par SAVEM:": END 


Dans le cas des fonctions, les DATA sont les suivants: 


1634 ‘ 

LÉ MRES chiue “lnittaltisatlon. 3323080 

17/46 CHTA Ilnitialisation, £HEHU1.LC, 6446, FL,622D,393,FIH 
1229 

1236 'Rcutines 

2446 CATA Fonctions, £HBAd44, 9C,BZ7.34,2,SC0.EZ, BD. DE. EL, 2 
526. Eve CD, 35.F,S0:CL.,F43%.00,57.38,2,61,52 
PATES SE, El, d4,26,23, 7E,S20,7E,7F2,FIH 

2354 HE FIH des routines 


REMARQUE: On constaiera que le programme vérifie systématiquement 
toutes les adresses, évitant ainsi tout recouvrement où écriture dans une 
zone protégée ou inexistante (celà grâce aux adresses contenues en $612A 
et $65F5: voir annexes) On notera aussi que le programme calcule une 
somme de contrôle permettant de vérifier les DATA : on doit avoir ici 4888 
pour la routine ‘Fonctions ”. 


IV. Utilisation du programme de création 


1. Quelques conseils 


À chaque utilisation du programme précédent pour créer une routine quel- 
conque, il faudra toujours sauver le programme avec ses DATA avant toute 
exécution du sous-programme d'initialisation ; une erreur dans celui-ci ou 
dans la routine ”planterait"’ en effet la machine, obligeant dans la plupart 
des cas à couper le courant... 
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On pourra alors écrire en début de programme {lignes 1 à 999) les instruc- 
tions BASIC permettant de tester la routine, après avoir fait exécuter le 
sous-programme d'initialisation (par EXEC &HBAQ1 ici). 


Rappelons que pour la mise au point d'une nouvelle routine, il est bien sûr 
possible d'utiliser le désassembleur pour vérifier que les codes sont 
corrects ; on pourra aussi par exemple intercaler au milieu un ou plusieurs 
appels de la routine $1ED1, qui écrit (en décimal) la valeur (convertible en 
hexadécimal par HEX$), placée dans l'accumulateur D du 6809 (et place la 
valeur 3 dans $6105): on pourra ainsi facilement vérifier le contenu des 
registres (par TFR registre, D) ou de certaines mémoires. 


Rappelons aussi qu'un JMP $2AEËD provoquera le retour au BASIC, 
permettant par exemple de vérifier la pile (adresse du sommet: PEEK 
(&H618C) + 256 + PEEK (&H618D)). 


On peut aussi utiliser l'instruction SWI pour créer des arrêts sur adresse : 
voir 1°"° partie. 


Enfin, on fera bien entendu ré-exécuter le programme de création après 
toute modification dans les DATA, afin de modifier effectivement la routine 
en mémoire | 


2. Utilisation des nouvelles routines 


Le programme de création signale à la fin de l'exécution la zone de 
mémoire à enregistrer en binaire, ce qu'on fera une fois pour toutes par: 


SAVEM ‘’Nom’”,&HAdresse 1,&HAdresse 2,8 


Dans notre cas, ‘Adresse 1” ($BAQ1 ici) est l'adresse du sous-programme 
d'initialisation: pour pouvoir utiliser les nouvelles fonctions dans un 
programme BASIC, il suffit donc de faire lire le programme binaire Nom” 
par : LOADM ‘Nom (ce qui ne demande que quelques secondes), puis de 
faire exécuter l'instruction: 


CLEAR &HAdresse 1 1: EXEC &HAdresse 1 


Ceci activera les nouvelles fonctions. 
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3. Exemple: FNR et FND 


Avec notre routine, on pourra écrire par exemple: 


SJ FRIHT &: "de &. :ÉHELE 1 "radiante" 
SF FFINT M OVERIF, "iki"degres =": FH FHRi oi "des 


1h # 
11 # 


res" 


1:4 EH: 
On obtient bien sûr: 


186 deurez = 3.141953 radiantz 
VERIF. ri degrees = 3 denres 


REMARQUE: Les calculs sont en fait effectués avec la valeur rn — 
3.1415927, exacte à mieux que 10 ? près. 
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3 


Boucle WHILE... WEND 


Les deux instructions WHILE et WEND permettent de boucler sur une 
séquence d'instructions tant qu'une certaine condition, écrite après le 
WHILE, est réalisée : lorsqu'elle ne l’est plus, il y a branchement à l'instruc- 
tion qui suit le WEND. 


Ceci permet donc de réaliser des boucles différentes de celles contrôlées 
par FOR et NEXT : leur principal intérêt est de permettre une bonne structu- 
ration des programmes, cette notion étant comme on le sait fondamentale 
en programmation: elle facilite en effet énormément l'écriture, la mise au 
point et les modifications ultérieures d'un programme. 


Signalons d'ailleurs que la possibilité d'écrire des sous-programmes à 
variables locales, que nous verrons au chapitre VI. constitue un autre 
élément très important de la programmation structurée. 
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I. Principe de création d’une boucle WHILE 


La routine correspondante, dont le principe est proche de celui d'une 
boucle FOR, utilise la routine $16AC qui trouve dans tous les cas le WEND 
associé au WHILE (voir la 2® partie). 


Lors du traitement de WHILE, on empile donc sucessivement : 
l'adresse du caractère qui suit le WHILE, 


le numéro de la ligne du WHILE (ces deux informations permettant de 
se repositionner au retour du WEND), 


— l'adresse du caractère qui suit le WEND associé, 


la valeur &HAF, c'est-à-dire le code de WHILE (ceci rend notre routine 
compatible avec la routine $2F3, appelée par FOR et GOSUB). 


On appelle ensuite la routine de traitement du WEND, qui teste la condi- 
tion; la boucle ne sera donc exécutée que si celle-ci est vraie. 


Le traitement de WEND consiste essentiellement à tester la condition de 
contrôle de la bouc'e: 


si elle est vraie, on se repositionne au début de la boucle et on fait un 
JMP  $2AED qui provoque l'exécution des instructions correspondan- 
tes (voir 2° partie), 


— si elle est fausse, on reste positionné après le WEND, on dépile les 
7 octets empilés par le WHILE et on fait encore JMP $2AED. 


Enfin, les deux routines correspondant à WHILE et WEND seront activées 
Par un sous-programme d'initialisation modifiant $6233 (WHILE) et $6236 
(WEND), contenant initialement une instruction JMP $7F3 (SN Error) 
correspondant au ‘traitement de WHILE et WEND. 


Signalons que nos routines permettent certaines ‘libertés’ d'une boucle 
FOR, c'est à dire les boucles imbriquées et l'écriture éventuelle du WEND 
après un THEN ou un ELSE. 


Toutefois, en cas de boucles imbriquées, les sorties anormales (qui ne 
passent pas par le WEND. à cause d'un 1F où d'un GOTO) sont volontaire- 
ment interdites (on aura un WE Error), ceci d'une part parce que la condi- 
tion de sortie correspondante peut être en principe ajoutée à la condition 
de contrôle et d'autre part parce que ceci n’a pas de raison d'être dans des 
programmes structurés ! 
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Pour la même raison, nous n'avons pas prévu ici de dépilement en cas de 
sortie anormale (alors que c'est le cas pour FOR, comme on l’a vu dans la 
seconde partie), qui reste toutefois autorisée pour une boucle simple. 


REMARQUE : Si l'on voulait réaliser une boucle REPEAT.. UNTIL condition 
(répéter. jusqu'à ce que condition; cette boucle est toujours décrite au 
moins une fois), le principe à utiliser serait pratiquement le même que celui 
donné ci-dessus. 


IL Les routines-initialisation 


Les routines correspondant à WHILE et WEND (enchaïnées, comme on va 
le voir) seront bien sûr implantées par le programme de création précédent. 


Le sous-programme d'initialisation est ici le suivant: 


INITW CC,BA78 LDD # $adr. Adresse routine 
FD,6234 STD $6234 Adr. trait. WHILE 
C3,81E ADDD # $091E 30 octets pour WHILE 
FD,6237 STD $6237 Adr. trait. WEND 
39 RTS 


Si l'on désire donc par exemple implanter simultanément les fonctions 
précédentes (en $BA4Q toujours) et le traitement de WHILE en $BA70, on 
enlèvera ‘’,39.FIN" de 1700 et on ajoutera: 


1:14 DHIH LL. ÉAFH HD BE54. LE UIE, Flers RIM 


La routine proprement dite sera ensuite écrite en 2190 et 2119, sous la 
forme : 


2199 DATA WHILE-WEND,&HBA7#,codes,FIN 


Le listing est le suivant: 


E47g 32 62 LERS 2:85 reinitialise pile 

EHVZ C6 A4 LDB SA 2 : 4 octets à empiler 
PA74 ED 9336 JSF $93:5e Débordement ? 

EA77 CE ES LOL SE Caract après WHILE 
EA?3 GE 20 LC CE N° ligne du WHILE 
EHTE 3 54 PSHS  %*,Ù Empiement 

EH?7D EC 16RAC JSF $Si6AC Trouve le bon WEND 
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BAB8G SE 78 LCX $7S N° ligne du WEND 


EHSZ SF 2C ST $20 

EAS4 30 B£ JSR $e2 Caract. après WEND 
EASÉ CE BS LODEL SES Adresse caractère 
BAB8 86 AF LCR #SAF Code de WHILE 
EHEA 34 42 FSHS RU Empilement 

BAS 80 66 BSR SBASE WEND 

BARE 3e 6€ LEAHS 2,5 Enlève adr. retour 
EH94 AE  6l LOX 1,5 Adr.cer. après WEND + X 
B49S2 ac B3 CMPFx  $B9 Est-ce le même? 
EASà 27 A5 BEG SEHSE Oui 

BH9SÉ C6 13 LDE #$19 Non + erreur 

BASB ?7E 9353 JF 54353 WE Error 

BASE RE 65 LDX 5,S Caract. après WHILE 
EASC SF B9 ST# CIS On se repositionne 
BASF ED 681 JSR $081 Calcul condition 
BAHZ ED 1CCS JSR $SiCcc8 Faux<>2—1(Z-Gsinon) 
BAS PT a BEQ SRARE Faux terminé 
EAA7 AE 63 LDX 3,S N° ligne du WHILE 
EHAS SF êc ST# $zC 

BAAB CE ZREC JP $S2AED Exécution boucle 
BAAE RE 61 LDX 1,5 Caract. après WEND 
BREG 3Z 67 LEHS 7,5 Dépilement 

EABZ 7E 1669 MF $1669 STX $B9,JMP $2AED 


REMARQUE : On doit obtenir ici 7613 comme somme de contrôle. 


HI. Exemple d'utilisation 


On fera bien sûr exécuter le programme de création et on enregjistrera le 
résultat une fois pour toutes sur cassette (par SAVEM "Nom, &HBAQ1, 
&HBAB4,0). 


Lorsqu'on voudra utiliser une boucle WHILE. il suffira donc de faire lire 
notre routine (par LOADM ‘’ Nom}. 


On pourra alors par exemple écrire le programme suivant: 
19 CLERF, 4HERAG : EXECEHEHO 1 
24 ‘Calcul de racine carree entiere 
389 #=15913 
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4 KID: MHILE R&R<SA: R=R+14: HEHDC 

S9 ‘On a atteint où deFssse la racine 
Et WHILE KXR2X:R=R-1 : HEHL 

76 PRINT" Facine de";xi"e"hR 


On obtient bien sûr 126, ce programme ayant pour seule ambition de 
montrer la logique (et la clarté !) d'une boucle WHILE. 


On notera quand même que cet algorithme élémentaire traduit en langage 
machine calculerait des racines entières beaucoup plus rapidement que 
SOR ; on pourrait donc l'utiliser par exemple pour créer une instruction de 
tracé de cercle. 
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4 


Création et utilisation 
de nouvelles 
instructions 


Nous nous intéressons ici à la création d'instructions nouvelles, non 
décodées par le BASIC comme l'étaient FN, WHILE et WEND. 


Les routines correspondantes seront étudiées dans les chapitres suivants. 


1. Principe de la méthode 


La méthode la plus simple consiste à ajouter les nouveaux mots à la fin de 
la table des fonctions (qui contient déjà les instructions MID$, INPUT et 
SCREEN): celle-ci sera donc recopiée dans la RAM, et les nouveaux mots 
ajoutés ensuite. 


Ces mots écrits dans un programme seront alors automatiquement codés 
par &HFFA7, FFAB8, etc...; lors de l'exécution du programme, la routine 
$2B25 de traitement des instructions branchera donc en $6273 (voir 
2° partie), où l'on écrira une instruction JMP adresse. 
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En ‘’adresse”, il suffira finalement d'écrire une routine de branchement 
vers les traitements des nouvelles instructions; on utilisera pour celà une 
table des nouvelles adresses. 


REMARQUE 1: Il faut être sûr de ne pas modifier le fonctionnement du 
BASIC en changeant les octets $6273 à $6275. 

On reprend donc le programme 1 de la 2° partie, en modifiant la ligne 4Q 
pour obtenir toutes les valeurs comprises entre &H6273 et &H6275 (IF 
PEEK(1+1) > &H72 AND PEEK(I+1) < &H76 THEN...). 

On obtient seulement $2B62, contenant JMP $6273: $6273 contient lui- 
même RTS, suivi donc de deux octets inemployés. Nous pouvons donc 
modifier ces 3 octets 


REMARQUE 2: Le même programme cherchant toutes les valeurs de 
& H626D à H6248 (points de contrôle de diverses routines : voir annexes) 
permet de trouver de même toutes les utilisations des octets correspon- 
dants (contenant 29 fois les trois valeurs &H39 (RTS), 2E et 74). 

On constate que les seules instructions utilisant une de ces adresses sont 
toutes de la forme: 

JSR (ou JMP) $626D+3x, avec x--0.1.., 19 

Elles pointent donc toutes sur un RTS, les deux octets suivants étant inutili- 
sés : de plus, chacune de ces adresses n'est utilisée qu'en un seul endroit 
de l'interpréteur. 

Ceci nous autorisera à mettre en œuvre les modifications de la quatrième 
partie de notre ouvrage. 

Signalons enfin que le même contrôle appliqué aux octets de $6233 à 
623E (WHILE, WEND, DEFFN (voir DEF, en $1891) et FN) aboutit à la 
même conclusion, ce qui justifie à postériori les interventions des chapi- 
tres Il et HI] 


Il. Mise en œuvre de la méthode 


La méthode que nous venons de décrire sera bien sûr mise en œuvre grâce 
au programme de création, complété comme nous allons l'indiquer: ia 
nouvelle table des noms de fonctions et la table des adresses des nouvelles 
instructions seront alors créées automatiquement, et celà encore une fois 
de la manière la plus souple possible. 
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1. Branchement au traitement des nouvelles instructions 


Lors de l'exécution d'un programme utilisant les nouvelles instructions, le 
branchement aux différentes routines s'effectue grâce à un petit sous- 
programme, placé juste après celui d'initialisation; ce sous-programme 
utilise une table des adresses des nouvelles instructions (placée en ADRA), 
exactement comme le fait la routine $2B25 (d'où l'utilisation de $2B38: 
voir 2° partie). 


Cette table des nouvelles adresses sera suivie elle-même de la nouvelle 
table des noms de fonctions, placée par exemple ici 24 octets plus loin, ce 
qui permet la création de 12 instructions nouvelles. 


Les sous-programme de branchement est donc le suivant: 


BRAN 8E,BF91 LDX # ADRA Ad. table des adr. 
8ÿ,A7 SUBA # SA7 x°mot=(x-1) — A 
2A,3 BPL 63 Nouveau mot 
7E,713 JMP $7F3 SN Error 

NOUX 73,2B38 JMP $2B38 Branche au trait. 


REMARQUE : La table des adresses est placée automatiquement (voir HI ci- 
après) en $7F01 pour le TO7 de base, en $BF@1 pour le TO7 avec exten- 
sion mémoire et en $DF@1T pour le TO7-7Q. 


Selon le cas, on devra donc remplacer ADRA par ces valeurs. 


2. Activation des nouvelles instructions 


Le sous-programme d'initialisation doit modifier l'adresse contenue en 
$6207 (début de la table des noms de fonctions), la valeur contenue en 
$6296 (nombre de mots, placé par le programme de création en ADRA-1), 
et placer une instruction JMP BRAN en $6273, le sous-programme BRAN 
précédent étant implanté juste après. 


On écrira donc: 


INITNV CC,BF19 LDD # ADRN Adr. table des noms 
FD,6297 STD $C297 
B6,BF99 LDA ADRA-1 Nombre de mots 
B7,6296 STA $6296 
86,7E LDA # $7E Code de JMP étendu 
B7,6273 STA $6273 
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1F,59 TFR PC,D Adresse E + D 


E C3,997 ADDD # $0997 (Adresse RTS)+1 + D 
FD,6274 STD $6274 
39 RTS 


REMARQUE 1 : On observera l'utilisation du compteur de programme PC du 
6899, permettant de déplacer les sous-programmes d'initialisation et de 
branchement sans avoir à les modifier. 


REMARQUE 2 : Pour la même raison que précédemment, on écrira obligatoi- 
rement les adresses $7F19 et $7F@@ pour le TO7 de base, et $DF19 et 
$DF@0 pour le TO7-70 (au lieu de $BF19 et $BF@0). 


3. Implantation en mémoire 


Finalement, si l'on désire implanter simultanément les nouvelles fonctions, 
les boucles WHILE et certaines nouvelles instructions, dont la table des 
adresses sera placée en cas d'extension mémoire en $BF@0Q (voir ci-après), 
on enlèvera ”,39,FIN" de la ligne 1710 et l'on ajoutera: 


#24 LATH LL.EF13.FD.627. Be. EFBB Er tele de. TE Beer 


IF SE LE QUE, Ë 37 
1 DHTH SE BFMI M, PH, 2 PET #5. FIH Tritial 
123t10nS 


On peut aussi bien sûr n'implanter que les nouvelles instructions, puisqu'on 
peut déplacer le sous-programme d'initialisation sans modifications: on 
écrira alors simplement : 


1798 DATA Initialisation,&HBA#1,CC.BF19,cu … 


II. Création des nouvelles tables 


Les mots-clés correspondants aux nouvelles instructions à créer seront 
placés en DATA, à la fin du programme {tigne 2996), chacun étant suivi de 


105 


l'adresse hexadécimale (précédée de &H) où se situera la routine de traite- 
ment correspondante. 


Ces adresses seront celles de branchement et elles devront bien sûr être 
les mêmes que celles écrites au début des routines proprement dites 
(adresses d'implantation). 


Toutefois, il est aussi possible de créer des instructions ‘non exécutables” 
(par exemple ARG au chapitre VI): on écrira alors comme adresse $7F3 
(SN Error) ou $663 (adresse de DATA‘: l'instruction sera ignorée). 


La liste des nouvelles instructions sera toujours terminée par le mot FIN 


Les instructions BASIC suivantes, à ajouter au programme de création du 
chapitre 2, génèrent automatiquement la table des nouvelles adresses, 
implantée à la dernière page de la RAM ($7F01 ou $BF@1): la table des 
noms de fonctions est implantée comme on l'a dit 24 octets plus loin. 


4 RS Houvellez rastruoctiouzs. 
1 ADÉF=FII HFE "FF ou EFAIe TOUS ou DAFATITOS-FM 0 
JF ACRCAGPFEA COTOLASA ELSE ACGFA=EAGE 
HEFM= ZA EN fonctions au deFart 
Patate Fecorie table des noms... ... 
HLF=HCPA+2S FOR IZLHICE TO £HEEN 


SA FORE HCFR. FEEFS I ADFSADE+T MEST 


PS ais NET de soute un nouveau mot os 

A FEHC H$ IF LEFTS$ AS. ="FIH" GOTOISSA 
FOR I=1 T0 LEH AS :-1 

3 PÜHE HLR.HELS MICSE HS, T7 11 ADF=ACEHI HEZT 
FÜKRE ACER. ASC FIGHT AE. 1 42H ACF=AUF +1 
HEFHME=HERM+1 +1 mot 


“Din atouts l'adresse danz 13 table 
FERLC * 
IF Y:=FIH-CHFF THEH HADF=& GOT) A5 


An I=INTSY 2e FOFE HCFEI 
1548 I=-132Sé FÜFE HLFA4I I 
LA ACFAEHDFG4Z GOUT] dE 
1545 * 
1854 ‘Tous lez nouveaux mots Crres. .…. 
1564 FOFE ALE.& ACRA=ALE+1 FFE FIH-ZHFF.HEFN 
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Exemple: Pour créer l'instruction INC (voir chapitre suivant), implantée 
$SBAB8 par exemple, il suffira d'ajouter au programme : 


2294 DATA INC,&HBABB8,liste des codes,FIN 
2998 DATA INC, &HBABB,FIN nouveaux mots 


Après exécution, un simple EXEC &HBA91 nous permettra d'utiliser notre 
nouvelle instruction (avant l'exécution du sous-programme d'initialisation, 
notre nouveau mot ne serait pas reconnu). 
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D 


Incrémentation et 
permutation de 
variables 


Nous allons appliquer la méthode précédente à la création des deux 
instructions relativement simples INC (incrémentation rapide) et SWAP 
{permutation), qui pourront servir de modèle pour réaliser des instructions 
similaires (par exemple un calcul rapide de fonction linéaire). 


Ces deux instructions contrôlent bien sûr la syntaxe et les types des 
variables, exactement comme les instructions ‘normales ”. 


L. Instruction INC 


1. Syntaxe-but 


La syntaxe est la suivante: 


INC variable [, expression] 
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Cette instruction ajoute la valeur de l'expression à la variable (qui peut bien 
sûr être un élément de tableau): si l'option |, expression] est omise, 
l'incrément par défaut est 1. 


L'intérêt de cette instruction est d'être exactement 1,5 à 2,5 fois (selon le 
type de la variable et la présence ou non du deuxième argument) plus 
rapide que l'affectation normale, ce qui sera très précieux pour tous les 
programmes où la rapidité d'exécution est essentielle. 


Toute instruction d'un programme de la forme X-X+expression pourra 
donc alors être remplacée par INC X, expression. 


2. Réalisation 


La routine est donnée ci-après: on constatera bien sûr qu'elle fait encore 
une fois un large appel aux routines de l'interpréteur ($A48, 1C08. 81A, 
etc.) dont on trouvera la description en annexe. 


On remarquera aussi l’utilisation de la valeur (double ou simple précision) 
9,5 située en $2380, utilisée par les routines de conversion de type pour 
les arrondis; la valeur entière 1 est trouvée de même par exemple en 
$SF9CA (LDX #$F9CA place donc 1 dans le bit N du registre CC, ce qui 
correspond bien en $1C08 au type 2) pour le TO7. 


La routine est la suivante: 


BABS EC hd ISF: $6A48 Adr.var -X:type-05 
GAËE 9F 3F ST* S35F 

EXEC 9C B3 JSF CT Expression ? 

EREF cé 11 BHE $SBAL:Z Calcul expression 
BAC 1 8E 2384 LDX# #$238a Emplacement de @5 
FHC4 30 CD JSF SCD Teste le type 
EACE 2H G3 EPFL $SEACE Réel ou dble préc 
EACE 3E FaCA LD #$F2CA Contient 1(TO71: 
BACE EC: 1C6UEe JSF: $SiCA8 5 ou 1-+ACflottant 
BACE C 5 INC $55 5-+1(réel) 

EALA 29 ÿE EFA $SEHEG Calcul 

BAD2Z LS g5 LDA ça Type variable 
EHD4 34 AE: FSHS A Empilement 

BALE aÛ CA JSF SCA Aton  °? 

BALE BC GE 1H JSF SH 1A Exp.—AC flottant 
EADB 35 42 FUILS A Type 

EHDC EC: 2514 JSF S2S 14 Conversion exp 
BHEA 3E 3F LDX $3F Adr variable 
BREZ EC: 24FC JSF $z4FD Teste le typelnum.} 
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BAES Z9 5A EYS SBAF 1 Réel(simpie préc.) 


BHE?7 24 Gé BHS BEF Double préc. 

BARES AE £4 LODX À Valeur var. (entière) 
BRAEB 9F 65 STX $s5 (donne : 2d AC flottant) 
FAELD 26 65 BRA $BAF 4 Addition 

BAEF C 93 INC $sg3 

EAF1 ED 1ABF JSR S1ABF Valeur var.+24 AC 
BAF 4 BC 2598 JSK $2590 + 

EAF7 PE 1036 MP $1C36 Résultat-variable 


REMARQUE 1: Si la variable est de type entier, l'addition est faite ici à 
l'envers (voir chapitre ll sur les fonctions), ce qui n’a aucune importance 
puisque + est commutatif ! Si l'on voulait, par contre, utiliser un opérateur 
tel que —, /, etc…., il faudrait obligatoirement permuter (en $BAED) les 
deux accumulateurs entiers ($6157 et $6165). 


REMARQUE 2 : La valeur F9CA (adresse contenant &H@@@1) située en $BAC9 
devra être remplacée par EA24 pour le TO7-7@. 


3. Exemples 


Après implantation de la routine (voir chapitre précédent) et exécution du 
sous-programme d'initialisation (EXEC &HBA@1), on pourra écrire par 
exemple : 
ee 2231.48: INC £:-2:FRINT # 

nt es: INC VE PRINT TA 


On obtient bien sûr 29.45 et —16. 


I. Instruction SWAP 


1. Syntaxe-but 


Cette instruction, relativement classique, et particulièrement utile pour les 
tris, s'écrit : 


SWAP variablet , variable2 
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Elle permute le contenu des deux variables (qui peuvent être des éléments 
de tableau), avec conversion en cas de types numériques différents: les 
variables chaînes sont ici admises (l'erreur TM” est bien sûr détectée et 
affichée si une seule des deux variables est de type chaîne). 


2. Réalisation 


On observera que notre routine utilise essentiellement une partie du trai- 
tement de l'affectation ($734 et 737), ce qui est logique puisqu'il s’agit ici 
d'affecter la valeur de var2 à vart et réciproquement; la permutation est 
effectuée à l'aide de la pile, dans laquelle on range la valeur de vart (par 
STS, $3F, JSR $737). 


La routine est la suivante: 


BAFC ED 6800 JSF: $4500 Valeur var1-+AC 
BAFF 32 78 LEAS -8,5 8 octets maxi 
EEG 1 18CF 3F STS S3F Adresse rangt.valeur 
ERG4 96 65 LDA 545 Type de vari 
BEBE SE 30 LOX $3L Adresse de var1 
BEGE 34 1z FSHS ,% Empilement 

EEGA BD A?737 JSR 50737 Valeur varl-pile S 
BBOC SC CA JSF SCA Aton ,'? 

BBGF BD 6846 SR usa Valeur var2AC 
EE12 96 95 LCA 505 Type de var2 
EB14 97 42 STAR $42 

EB16 35 12 FULS H:# Type et adr varl 
BE1S 3F 3F ST* S5F 

EF1A EC: 4734 JSF: 59754 Var2 convertie-var1 
6610 1F 41 TFR S,X Adr valeur var1-+X 
BB1F [af e) 4853 JSF 54393 Valeur var1-AC 
BEXZ 9k. 42 LDA &42 Type de var2 
ÉEZ4 3E 36 LOX $50 Adresse de var2 
EBZE 9F 3F STX $52F 

BE28 ED 1734 JSF: Sa 34 Varl convertie-+var2 
BB2?E 32 65 LERS 2,5 Restaure la pile 
BEC 39 FTS 


REMARQUE : Les variables ne sont pas créées en mémoire par cette instruc- 
tion (utilisation de $800: voir 2° partie). 
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3. Utilisation-exemples 


Nous rappelons ici le mode opératoire, à utiliser pour toute instruction 
nouvelle 


Pour implanter notre routine en $BAFC par exemple (ou en toute autre 
adresse ne recouvrant pas une routine précédente, où la dernière page de 
la RAM: rappelons que ce contrôle est effectué automatiquement par le 
programme de création), on écrira donc: 


2394 DATA SWAP,&HBAFC BD, 804... ,39,FIN 
299f DATA INC &HBAB8,SWAP,&HBAFC,FIN 


Après création, on enregistrera une fois pour toutes les octets correspon- 
dants par SAVEM, les adresses étant indiquées par le programme. 


Après relecture (LOANM) et exécution de CLEAR.INIT-1 : EXEC INIT (INIT 
étant par exemple ici $BA@1), on pourra écrire par exemple: 


Lait He. Ur Ver. 19 Zk=49s 
118 ©HHPF 5 FRLHT % ET 
Let SUAF ZA FRIHT % 
154 HS= "FALL": ES$= "JEANNE" 
LA IF AS:ES$ THEH SMF H$ES 
154 FRIHT H$,E$ EHL 


"ie 


On obtiendra bien sûr: 


ré. 12 51.5 As 
—#. 1 475 De 
JERAHHE FHUL 


4. Amélioration possible 


La routine précédente permet de permuter deux éléments de tableaux; on 
pourrait prévoir aussi la permutation directe de deux tableaux: les noms 
seraient alors précédés de DIM pour indiquer à l'interpréteur qu'il faut 
permuter deux ensembles de valeurs (et non deux valeurs seulement). 


On pourrait donc alors écrire: 


SWAP DIM Tableau1,DIM Tableau2 
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Bien entendu, la routine vérifierait la conformité des deux tableaux, qui 
devraient avoir été déclarés auparavant: elle pourra être écrite en s'inspi- 
rant de la transmission des tableaux entre unités de programmes indépen- 
dantes, que nous allons voir au chapitre suivant (en particulier, utilisation 
de $A48 appelée avec 1 dans $6197). 
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6 


Procédures 
variables locales 


On sait que la méthode la plus efficace pour traiter un problème complexe 
consiste à le décomposer en plusieurs sous-problèmes indépendants les 
uns des autres; chaque sous problème pourra lui-même être décomposé 
de la même manière en ‘’sous-sous-problèmes”, etc... jusqu'à arriver à des 
problèmes élémentaires que l’on pourra programmer immédiatement. 


Cette méthode d'analyse ‘’par raffinement graduel” est dite ”descen- 
dante”; elle opère donc du général vers le détail, et non en sens inverse 
comme on le fait hélas couramment ! 


Une telle approche est possible en BASIC (usage des GOSUB et non des 
GOTO...) même si ce langage est peu adapté pour celà; toutefois, on est 
alors astreint à tenir compte à chaque niveau des informations utilisées par 
toutes les autres unités de programme: il n'est donc pas possible d'écrire 
et de mettre au point chaque module indépendamment des autres, d'où 
l'impossibilité pratique d'écrire et de mettre au point des programmes 
longs, et la difficulté de trouver certaines erreurs conduisant à des compor- 
tements anarchiques ! 


Ceci est dû au fait qu'en BASIC toutes les variables d'un programme sont 
communes à toutes les parties de celui-ci, conduisant donc à des interac- 
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tions néfastes; la seule exception est constituée pour certains BASIC par 
les fonctions utilisateurs FN, limitées à un simple calcul et donc sans 
portée réelle. 


Nous donnons ici une méthode permettant de créer des unités de 
programme, ou procédures, indépendantes les unes des autres: toutes les 
informations utilisées par une de nos procédures n'ont en effet de sens que 
pour celle-ci, c'est-à-dire qu'elles sont /ocales à la procédure. 


Nous verrons bien sûr que ces procédures peuvent aussi recevoir ou échan- 
ger des informations avec le programme qui les appelle. 


Elles peuvent enfin s'appeler elles-mêmes. ce qui autorise donc la vraie 
récursivité. 

Il vaut donc la peine de faire l'effort d'écrire les seuls 375 octets néces- 
saires pour tout celà !.…. 


1. Principe de la méthode — Passage des Arguments 


1. Principe 


On a vu dans la deuxième partie que l'interpréteur gère les informations 
utilisées par un programme à partir des adresses contenues en $611E 
(début de la zone des variables), $6120 (début de la zone des tableaux} et 
$6122 (début DEB de la zone libre, contenant la pile). 


Pour créer des variables ou des tableaux locaux à une certaine partie de 
programme, il suffit donc d'envoyer l'adresse DEB en $611E et $6120, 
après sauvegarde des valeurs initiales dans la pile 


Toutes les variables ou tableaux rencontrés alors seront créés automati- 
quement (par la routine $A48) dans une zone de mémoire indépendante de 
la zone normale, et seront donc complètement différents des variables ou 
tableaux utilisés jusque là, et celà même dans le cas où les noms seraient 
les mêmes! 


Bien entendu, on restaurera lors du retour au programme principal (instruc- 
tion PROCEND définie ci-après) les valeurs de $611E, $6129 et $6122 
{cette dernière avec le contenu de $611E, qui ne bouge pas): les informa- 
tions utilisées par la procédure ne seront donc pas “vues” par le pro- 
gramme qui l'appelle. 


On aura donc bien ainsi l'indépendance des différents modules de 
programme. 


2. Passage des arguments 


I est évident qu'une procédure ne peut être un bloc isolé, sans lien avec les 
autres modules de programme ; elle doit donc pouvoir recevoir des infor- 
mations, et en retourner en échange; ceci constitue le problème du 
passage des arguments” 


Il faut donc préciser lors de l'appel de la procédure (instruction CALL) la 
liste des arguments, ou des ‘paramètres ”, à transmettre à la procédure 
(arguments ‘effectifs "). 


Lors de la définition de la procédure (instruction PROC), on écrira la liste 
des arguments ‘formels, recevant les valeurs des paramètres effectifs. 


Il existe essentiellement deux méthodes classiques de passage d'argu- 
ments; nos instructions permettent effectivement l'utilisation des deux 
modes. 


— Passage par valeur: ce sont alors simplement les valeurs des para- 
mètres effectifs qui sont transmises à la procédure ; on ‘’recopie ‘ pour 
celà les valeurs de ceux-ci après conversion éventuelle en cas de types 
différents, dans les variables formelles correspondantes. 

Les valeurs et en-tête d'un tableau sont, elles, directement recopiées 
dans le tableau formel, qui sera donc automatiquement créé avec la 
même structure que le tableau effectif; le nom devra être du même 
type que celui-ci, car il serait trop long à l'exécution de convertir un à 
un tous les éléments du tableau. 

Ce mode est le passage d'arguments par défaut que nous avons retenu 
pour nos instructions, semblables en celà aux instructions correspon- 
dantes du PASCAL, de l'APL et des fonctions FN BASIC (ce mode 
n'existe pas en FORTRAN, mais il peut être simulé). 

Dans ce mode de passage, aucune valeur n'est retournée vers le 
programme principal, qui est donc totalement “protégé” des traite- 
ments effectués dans la procédure. 


— Passage par adresse: c'est alors l'adresse de l'argument réel qui est 
transmise au sous-programme lors de l'appel; lors du retour au 
programme principal, les valeurs des paramètres formels sont 
retournées vers celui-ci, c'est-à-dire que les paramètres effectifs sont 
modifiés. 
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On peut ainsi transmettre un nombre quelconque de résultats vers le 
programme principal, en prenant garde que certaines variables de 
celui-ci seront donc modifiées par l'exécution de la procédure. 

Pour indiquer à l'interpréteur que l'on désire faire un passage par 
adresse, nous avons choisi d'utiliser ici, dans la liste des paramètres 
effectifs du CALL, le mot clé ARG (”argument”|. 

Signalons que ce mode de passage est le mode de passage normal du 
FORTRAN ; en PASCAL, le principe est le même qu'ici (utilisation du 
mot clé VAR); toutefois, cette déclaration doit être faite lors de la défi- 
nition de la procédure et donc figée une fois pour toutes. 

L'intérêt de faire plutôt la déclaration lors de l'appel est que la procé- 
dure pourra ainsi ne pas retourner les mêmes paramètres (et donc ne 
pas modifier toujours les mêmes paramètres effectifs) lors de deux 
appels différents : voir l'exemple du jeu des jetons donné plus loin. 


IH. L’instruction CALL 


Elle réalise l'appel d'une procédure. 


1. Syntaxe-action 


On écrira: 


CALL numéro de ligne (liste d'arguments) 


expression ou DIM Nom de tableau 
argument 
ARG variable ou ARG DIM Nom de tableau 


La valeur de l'argument est transmise dans tous les cas à la procédure; si 
l'on écrit un nom de tableau précédé de DIM, c'est le tableau tout entier qui 
sera transmis. 


Si l'on utilise la déclaration ARG, il y aura en plus retour de la valeur du 
paramètre formel correspondant; l'argument devra donc être alors une 
variable (ou un élement de tableau), ou un nom de tableau précédé de DIM 


L'instruction provoque le branchement à la ligne indiquée. 


REMARQUES: Toutes les variables précédées de ARG devront avoir été 
définies auparavant, par l'affectation d'une valeur par exemple (mais pas en 
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l'écrivant dans une expression, qui ne crée pas les variables en mémoire: 
voir 2° partie): on évite ainsi tout problème éventuel de déplacement de 
tableau en cas de création d'une nouvelle variable. 

De même, les tableaux à transmettre devront avoir été définis auparavant 
par une instruction DIM normale, ceci car $A48 appelée avec 1 dans 
$6197 ne crée pas le tableau. 

Bien entendu, tout manquement aux règles ci-dessus est détecté ou 
signalé, soit par CN Error” (Can't continue) en cas de définition oubliée, 
soit par ‘SN Error” par exemple si on écrit ARG expression ou DIM nom 
(liste d'indices) comme argument. 


La routine 


routine place d'abord dans la pile: 

l'adresse du premier caractère qui suit le CALL, 

le numéro de la ligne du CALL, 

la valeur &H3B, placée à l'adresse a 

Ces 5 octets permettront le retour à l'instruction suivant le CALL, après 


exécution de la procédure. 
Pour chaque argument, la routine empile ensuite successivement: 


l'adresse de la valeur de l'argument, ou celle de l'en-tête pour un 
tableau (précédé de DIM), 


le type de l'argument, les bits 7 et 6 étant mis à 1 pour un tableau; 
dans le cas d’un tableau à retourner, précédé donc de ARG DIM, seul le 
bit 7 est mis à 1, 


la valeur de l'argument (sur un nombre d'octets égal au type}, sauf en 
cas de tableau ou de déclaration ARG: l'adresse empilée 3 octets 
auparavant est alors celle de cette valeur, c'est-à-dire qu'elle pointe 
dans la pile elle-même. 


Après empilement du dernier argument, le sommet de la pile est à 
l'adresse B; on empile alors: 

l'adresse contenue en $611E, 

celle contenu en $6126, 


l'adresse f, 
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— l'adresse a du &H3B (les arguments formels sont donc décrits dans la 
pile entre a —1 et f), 


— la valeur &HCQ caractérisant le CALL. 
Il y a alors branchement au numéro de ligne écrit après le CALL. 


La routine utilise un sous-programme déterminant l'adresse et le type d’un 
argument ; dans le cas d'un tableau, l'adresse retournée est celle du début 
de l'en-tête (voir 2° partie). 


Le listing est le suivant: 


CE Etc LCE / 14 octets-pile 
EC: AT2E ISF 45 Débordement ? 

XE EE LD Cal Début zone libre 
EF ÊFFE ST SFFFE Adr. inutilisée 
IAE Era LC HE: Adr. car. après CALL 
2€ EC LC $EC Noligne du CALL 
BÉ 3F LA #$:E 

4 cie PFSHE AH, Empilement 

a0 15 ISF $ES Caractère courant 
El AÈFC: JSF SArFC Calcul adr.brancht 
EC AeEÉ JSF SAPER Aton ‘("? 

CE Été LOF #SAE 11 octets maxi. 
EC: A22E ISF ÉTAT Débordement ? 

AC: FE ISF SEE 

4 IHCRA A-ton ARG (FFAB) ? 
y 21 EE SEEFE Par adresse 

1 55 CFA HE Code de DIM+1 
£Ë ÂÉ EHE SEESF Variable 

EE A ns SF SERRES S.P +6 (tableau) 
A CH FH LL TRE] 1-bits 7 et 6 type 
A Z EFA GÉREZ Suite 

El: HER SF BA] H Calcul expression 
36 45 L'OA SAS Type 

1F Es) TFF: HF Nbroctets val.+B 
CE A ACGE  #$47 

St GE 

34 ES EF Adr.valeur-X 

4 17 à 

af 3F STE 

1F td , Pour empiler valeur 
EC AFE? SF Valeur-pile 

L'E AE EFH $SÉES A Argument suivant 
fs [a ISF: $EZ 2% octet code 

CE AE; L CE: #$HE Code de ARG 
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aû CA ISF 
= 0 2F ESF: 
27 [x Ra ÉER 
af an QF'A 
34 12 FSHS 
af ES ISF: 
Si 24 CFA 
EF A4 EE 
al CA ISF: 
2 EC: EFA 
GE 1E LCL 
1ASE 29 LC 
1F 41 TEF: 
GC AC LDC 
23 847 SLIEC 
4 rÉ PSHS 
Ré CA LCA 
34 Az FSHE 
QE se LC 
EC EFFE CHPX 
FÈ 34 EHE 
EC: AE SF 
TE 2HEC IF 


Le sous-programme est le suivant: 


FEAT: ar ÊE JSF 
FERAF A1 Ed CFA 
FA LE Les EHE 

A1 LCA 

ar STA 

F2 ISF: 

HHd= ISF 

A7 LCE 

a La BEEN 

TSTA 

A5 BEL 

EFFE CEC 

An LCA 

a? CLP: 
TSTE 

ETS 


$EFFE 
$PERCE 
$aez9 
$CAED 


A-ton ARG? 
Sous-programme 
Suite (Variable) 
Tableau (1-bit 7) 


Caractère courant 


Code de ‘)" 
Terminé 
A-ton “."? 


Argument suivant 
Début variables 
Début tableaux 
Adresse fx 
Fond de la pile 
Adr.a de #3B-+D 
Empilement 


Début zone libre 
S'est-il déplacé ? 
Oui->CN Error 
Sur ligne indiquée 
Exécution 


Caractère courant 
Code de DIM 
Var.ou elt.de tab. 
Tableau 
Cherchera en-tête 


Adr.—X :type-05 


Tabl.existe déjà ? 
oui 

non 

Type 


Var.ou tableau ? 
Retour 


REMARQUES : On notera ici l’utilisation de deux octets situés en $BFFE pour 


détecter tout déplacement de la zone des tableaux. 
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D'autre part, la routine $A48 appelée avec 1 dans $61@7 retourne A=1 si 
le tableau correspondant n'existe pas en mémoire (et A=—@ dans le cas 
contraire); on déplace alors $BFFE, d'où la détection (à la fin) de l'erreur 
CN. La somme de contrôle est ici égale à 157260. 


HI. L’instruction PROC 


Elle permet de définir les paramètres formels de la procédure : suivie du 
mot END, nous verrons qu'elle provoque le retour au programme principal. 


1. Syntaxe-action 


PROC (liste d’arguments formels) 


Argument formel — Variable ou DIM Nom de tableau 


L'argument formel prend dans tous les cas la valeur du paramètre effectif 
correspondant. 


Dans le cas d'un nom de tableau précédé de DIM, le tableau formel est 
créé automatiquement avec la même structure que le tableau effectif; le 
type doit être alors le même que celui de ce tableau effectif. 


Le nombre, la nature (variable simple ou tableau) et le type (numérique 
quelconque, ou chaïine) des paramètres formels et effectifs doit 
correspondre. 


Tout manquement aux règles ci-dessus, ou par exemple la rencontre par 
l'interpréteur d'un PROC sans qu'il y ait eu appel par CALL, est signalé par 
un “CN (ou SN} Error”. 


REMARQUE : On peut écrire un élément de tableau comme argument: il y 
aura alors création automatique du tableau correspondant, de taille 11. 


2. La routine 


Elle vérifie que la valeur située en haut de la pile est bien &HCGQ (précédé 
de l'adresse $2B23 de retour à la boucle d'exécution des programmes : voir 
2° partie) ; elle remplace ensuite cette valeur par l'adresse du 1° caractère 
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du 1° argument (ceci pour le retour), empile la valeur &HC1 caractérisant 
PROC, et remplace l'adresse de retour au sommet. 


Les zones des variables et des tableaux sont alors déplacées en zone libre 
{d'où l'indépendance totale entre les variables et tableaux de la procédure 
et celles du programme principal}, puis les paramètres formels sont créés 
dans ces zones, et initialisés au fur et à mesure avec les valeurs des para- 
mètres effectifs correspondants (pile balayée grâce au registre Y). 


ll y a alors exécution de la procédure, jusqu'à l'instruction PROCEND. 


Le listing est le suivant: 


BRCI li 24 CFA  #$Sn Code de END 
BBCE er ÊC REC SECTE PROCEND=retour 
ÉEDA EC A7EE JSF: SAUTER A-ton ‘("? 
REC2 535 an FULS 1} Adresse $2B23 
RECS 35 22 FILS A.Y Adr u(CALL)+Y 
ÉRCT £1 CA CFA  #$Ca 

BACS ze as EEQ $SEÉEE 

BCE: Ce 11 LGB #$11 

EECC FE AS MF $475 7 CN Error 

ERER ÊUR IHCA #$C1-+A 

REE 1 3E ES LCX SEA Adr. 1° caract. 
ÉEE = 44 SE FSHS A: 

EBES 34 41 FSHS Replace $2B23 
BÉE7 SE 22 LO* 2e Adr.zone libre 
ÉBE2 SF 1E ST* $1E Déplact.zone var 
EEER aF sc STX* $2A Déplact zone tab. 
RREC 20 EE ESF: SEÉERALC Sous-programme 
BEEF 27 21 BEC $SEC12 Variable 

BEF 1 EE A: LC Photo à Tableau 

EEFS A& Hz EGFA s—" Types égaux? 
BEFS Ed EF AHCA  #$EF o-bit 6 

EEF7 4f CECA A-ton $80? 
REF3 LE E1 EYC $EELE CN Error 

BEFA El: AHCE ISF: $AACE Nom-zone tableau 
ERFC EE zi LOL 1.7 Adr.tabl.etfectif 
BEFF 1F 1A TFF #0 Adr.tab.formel-D 
RCA 1 EZ C4 ACDC 1 D+taille tab.eff. D 
EC (1e 22 STC EE Déplact zone libre 
BCA4S EC: 437 JSP SATA Débordement mem. ? 
ECas Aë CA LOCK sU+ 1 octet tabeeff. 
ECGA AT ET) STA A+ -tab formel 
BCaC EUR ze CMFX  $27 fini ? 

RCGE 25 F5 EL $SECAS Boucle 

EC14 2f 1E EFR SÉCZA Suite 
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EC12 9F 3F ST $2F Adr.var.form. 
EC1d4 34 a PFSHS A Type var.form.-pile 
EC1É AE 43 LDY stat É Adr.var.eff.-x 
BC18 46 2 LDA + Type var.eff. A 
BC1A 2B EF BNMI $SÉBLE CN Error(tableau) 
BC1C 37 45 STA ses 

RC1E ac Pa CHPX  $2Z Valeur dans pile ? 
EC24 25 A2 EL $SEC24 non 

EC22 1F 12 TFF: BaY Adr.valeur-+Y 
EC24 EC: METAL SR ÉTAT ARE Argu.eff.AC flot. 
BC27 35 A2 PFULS À Type var.form. 
RC2S 34 24 PSHES  Y Sauvegarde de Y 
EC2E EC 67:34 SP ga :4 Val.convertievar. 
RC2E 35 24 PULS 

BC3A 1AAC 67 CHMFY 7,5 Fini AY-B, de CALL) 
RC35 27 A4 BE{) $SEC3S oui 

EC3S ac CA JSF SCA A-ton ”,"? 
ECS 2 E4 EF'A $SEEEC Argument suivant 
RC3S FE A7E3 MP $A7ES A-ton ”}"?RTS 


REMARQUE: Cette routine devra être implantée juste après CALL, ceci pour 
que les branchements relatifs au sous-programme et au CN Error soient 
exacts. 


IV. L'instruction PROCEND 


Elle provoque le retour au programme principal. 


1. Syntaxe-action 


PROCEND ou PROC END 


Îl y a retour à l'instruction du programme principal qui suit immédiatement 
le CALL. 


Les paramètres formels correspondants aux paramètres effectifs précédés 
de ARG dans l'instruction CALL sont retournés au programme principal. 


Une procédure peut contenir plusieurs PROCEND. 
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2. La routine 


La routine dépite d'abord les boucles FOR ou WHILE non terminées, qui ne 
provoqueront donc pas d'erreur (routine $2F3: voir 2° partie). 


Puis elle vérifie la valeur située en haut de la pile (&HC1); les paramètres 
effectifs présents dans la pile sont examinés un à un (registre Y), et ils pren- 
nent éventuellement la valeur du paramètre formel correspondant (si leur 
adresse ne pointe pas dans la pile). 


Les adresses des trois zones (variables, tableaux, libre) sont alors 
restaurées; toutes les variables et tableaux utilisés par la procédure ne 
seront donc pas vues” par le programme principal. 


1! y a enfin retour au programme principal, grâce à la routine $64C (traite- 
ment de RETURN). 


Le listing est le suivant: 


BC3C 9D pz JSF $B2 1° octet après END 
EC3E 27 ai BEQ SEC 1 

EC 4 39 RTS Provoque SN Error 
BC41 86 FF LDA #6FF FOR WHILE non. 
EC43 97 3F STAR $3F .dépités sinon 
BC45 EC: a2F3 JSF $92F3 Cherche FOR. WHILE 
EC48 1F 14 TFR #5 Dépilement 

BL4f 25 42 PULS A, Adr.1°" arg.PROC-U 
BC4C 91 C1 CFA  ##C1 

RC4E 27 A3 BE $SBC53 

BC50 TE 1748 JP $Si7H8 RE Error(Return er.) 
BC53 DF 89 STU $E Sur le 1°’ arg. PROC 
BC55 10HE E4 LE :S a(voir CALL)-Y 
BCSER 17 FFS2 LESF  $ÉREAC Sous-programme 
BCSE 27 18 BE $SEC75 Variable 

BCSD EE 3 LOU a" Adr.tableau eff. 
BCSF R6 AZ LDA > —T Type 

BCGE1 34 49 ANDR  #$4a Garde bit 6 

BC63 26 29 BNE SBCSE Suite (par valeur) 
BCES 1F 19 TFR #5 D par adr.:adr.déb.-D 
BCE? E3 &4 ACDD x D+taille tab.D 
BCES DD 37 STD $SS7 Adr.fin tableau 
BC6B 6 £a LDA + 1 octet tab.form 
BCGED 47 Cp STA s + tableau eff. 
BCEF sc 37 CMPX 957 Fini ? 

BC?1 25 F8 BLO $SBCÉE Boucle 

BC?73 29 19 BRA SBC8SE Suite 


BC?73 EE A3 LOU a——Y Adr.valeur var. 


BC?7?7 CF 3F STU $3F 

EC?9 1193 22 CMPU #22 Valeur dans pile ? 
BC?C 25 84 BLO sBCSs2 Non transmettre val. 
BC?E 1F 32 TFR U,% On saute la valeur 
BC88 28 QC BRA SBCSE Suite 

BC82 BD 6883 JSR 0803 Val.form.+AC flot. 
BC8s A6 f2 LDA PR 6 Type argeff. 
BC8?7 34 28 PSHS Y Sauvegarde de Y 
BC89 BD 6734 .JSP #9734 Val.convertie-+var. 
BCRC 35 20 PULS 

BC8E 9D B2 JSR #62 

B8C9368 10€ 62 CMPY 2Z,S Fini ?(Y=B.de CALL) 
BC93 26 C3 BNE Ss6C5E Argument suivant 
&C95 35 76 PULS A,B,%x,%7.U 

6CS7 1F 64 TFR D,S Pile restaurée 
BC99 SE 1E LDX $SiE Adresses zones... 
BCSB 9F 22 STX $22 

BCSD 109F 20 STY $28 

BCRAG DF 1E STU S1E ….restaurées 
BCA2 A6 E4 LDA :S Valeur 3B-A 
BCAd ?7E 2640 LMP $o64ac Trait. de RETURN 


V. Applications simples 


1. Mise en œuvre 


Les instructions CALL, PROC et ARG seront implantées et mises en œuvre 
en ajoutant les instructions suivantes au programme de création: 


2499 DATA CALL,&HBB39, liste des codes, FIN 

2599 DATA PROC,&HBBCC, liste des codes, FIN 

299$ DATA INC,&HBAB8,SWAP,&HBAFC,CALL, 
&HBB34,/PROC,&HBBCC,ARG.&H7F3, FIN 


Les adresses données ici sont indicatives ; rappelons toutefois que PROC 
devra être implanté immédiatement après CALL, et que l'adresse de ARG 
sera toujours $7F3 (SN Error) puisque ARG n'est pas exécutable. 
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Il est enfin obligatoire d'écrire INC et SWAP en 2999 pour que ARG soit 
codé &HFFAB : si on ne désire pas les créer, on n'écrira évidemment pas 
les lignes 2200 et 2300, et on écrira: 


2998 DATA INC,&H7F3,SWAP,&H7F3,CALL,etc... 


Après exécution, et sauvegarde (SAVEM) des octets correspondants et de 
la table des noms, les instructions seront activées par un simple EXEC 
&HBA91. 


2. Premiers exemples 


Exemple 1: 


394 FE LorFz dy FroSramme.,., 

199 #=5.13:1z-d1. d':YARZSEZ. à 

1164 CALL SA "TEST". ARG +5, 1% 

124 FRIHT"Fram. FrinciPal "5 VAR: LG EX 
1:4 EHD 

ci ‘Frocedure... 

214 FPRÜCL AS. VAR, Z, EE 2 

Z£W FRIHT'"Frocedure MAS VAR LE kit 
2569 VARSZIZ. 68: FROCEHD 


On obtient : 
Frocedure : TEST 6.135 -38.3 -41 4 à 
Fram. PrinciFal : 12.87 -41,4 32,4 WW 


Les variables X et Y du programme ne sont pas vues” par la procédure, et 
réciproquement pour les variables Z et B%X 


La variable VAR de la procédure correspond à la variable X du programme 
principal, et sa valeur est retournée dans celle-ci: elle n’a rien à voir avec la 
variable VAR du programme. 
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Exemple 2: 


196 N=20:DIM A$&H),B$H2 “Taille H 
119 ‘Lecture tableau A$ fa ecrire...) 

2606 CALL S8üc DIM AS,ARG DIM E$,N) 

219 ‘ÜUn a dans B$5 le tableau initis3l trie 
2:8 ‘Suite {a ecrire: 

4938 EHC 

SO6 FROCCCINM T1$,DINM T2$,F)2 

516 ‘Tri dans T2$ du tableau T1$ 3 ecrire) 
684 FEUCEND: 


On peut bien sûr aussi trier directement dans le tableau A$, en écrivant: 


298 CALL SHJ(ARG DIM A$,N) 
588 PROC (DIM T$,P) 


3. La récursivité 
Nous rappellerons ici qu'un sous-programme récursif est un sous- 
programme qui s'utilise lui-même dans sa propre définition. 
Par exemple, une factorielle peut se définir par: 

nl=nx(n—1)! 
De même, la définition d'un nombre de Fiboracci est: 

FF 1+Fa22 
Enfin, un coefficient binominal peut se définir par: 

P — P 
cP = C , + 


C 
n n—1 n—1 


Ces trois définitions sont récursives. 


Le BASIC normal autorise une pseudo récursivité puisqu'un sous- 
programme peut s'appeler lui-même: elle reste cependant très limitée à 
cause de la “globalité” des variables. 


Nos procédures permettent par contre une totale récursivité, ce qui cons- 
titue un outil très puissant en programmation. 
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Exemple 1:n! 


144 [HPFUT "Donner un nombres 1 3 3323 ";H% 

119 FALT=H:CALL ZYSCARG FHRCT. HE 2 

124 FRIHI"FALTOURIELLE", HA: "="; FAT 

154 EHl 

145 ‘Frocedure recursive... 

284 PRUCLF.H2 “...calcule F=H! 

Zi IF H£=1 THEM Fz1 ELSE CALL 298CARG F:H-1 2:F=<F#tH 
#4 FROC EHC 


On obtient par exemple : 
FACTORIELLE 4 — 24 


Le fonctionnement est le suivant : il y a d'abord appel de PROC (F,4) par le 
programme principal: la procédure elle-même appelle alors en 210 
PROC(F,3). qui appelle elle-même PROC(F,2), qui appelle enfin PROC(F,1) 
où la règle d'arrêt (obligatoire !) est vérifiée. 


1! y a alors retour de la valeur 1 vers PROC (F,2), qui retourne donc 1 x2--2 
vers PROC(F.,3), qui retourne elle-même 2x3=6 vers PROC(F,4), retour- 
nant enfin 6x4=24 au programme principal. 


A un moment donné de la récursion, il pourra y avoir par exemple une ving- 
taine d'appels imbriqués, chacun ayant créé ses propres variables, conte- 
nant toutes des valeurs différentes bien qu'ayant le même nom! 


REMARQUE : FACT —" valeur” est obligatoire à la ligne 11@ pour définir la 
variable FACT (précédée de ARG dans le CALL): par contre, en 21.,F est 
déjà définie par l'instruction PROC elle-même. 


Exemple 2: C P 
n 


56 INPUT "HF "5H, 

314 COME=0:CALL 45@cARG COME,H,P 

329 PRINT:FRINT F 

334 PRINT H;5 "2"; COME ; CHE 13; 

545 ATTRE G,1:FRINHT "C':ATTEE ©, 6: END 

45 ‘Frocedureirecursive 

41H PRULLC,H,Pi:CP=ÿ 

424 IF F=@ DR H<S=F THEH C=1 ELSE CALL 448 ARG C:H-1.F-1 
: CALL SGA ARS CP,H-1,F2:C=C+CP 

4:25 FROCEHL 
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On obtient par exemple: 
3 _ 
C 2-5 


On constatera qu'il est ici nettement plus facile d'écrire ou de comprendre 
le programme que de suivre exactement tous les appels et retours ! ceci est 
d'ailleurs fréquent avec la récursivité. 


On notera aussi que les deux exemples ci-dessus pourraient être program- 
més sans utiliser la récursivité (ce qui serait d’ailleurs ici plus efficace); 
l'emploi de celle-ci permet par contre une écriture très claire et élégante. 


Dans certains problèmes (parcours ou création “d'arbres”, tri par 
“quicksort”, etc..), elle est d'ailleurs quasi-indispensable, et doit être 
simulée au prix d'une gymnastique compliquée en cas d'utilisation de 
langages non récursifs (par exemple BASIC standard, ou FORTRAN). 


VI. Application aux jeux 


1. Le principe 


Soit à programmer un jeu où le programme Sevra affronter un joueur. 


La récursivité permet d'écrire très facilement un sous-programme analy- 
sant à un moment donné de la partie la situation de jeu, jusqu'à son terme. 


A un instant donné de l'analyse, le sous-programme s'appelle lui-même 
pour tous les coups possibles de l'adversaire; lorsqu'il y a ainsi arrivée à 
une situation finale perdante, la récursivité permet de revenir automatique- 
ment à une situation antérieure ; dès qu'un coup gagnant est trouvé, il est 
retourné au programme principal. 


2. Exemple: jeu des jetons 
Dans ce jeu simple et classique, on part d'un nombre quelconque N de 
jetons: le joueur à qui c'est le tour de jouer peut en prélever un ou 


plusieurs, sans en prendre plus du double de ce qui a été ôté par l'adver- 
saire au coup précédent. 
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Le gagnant est celui qui ramasse le dernier jeton. 


Exemple de partie: 


11 jetons au départ: 


— le programme en prend 3: 
— le programme en prend 1: 


— le programme en prend 1 (forcé): 


restent 8: 
restent 5; 


restent 3: 


— le programme prend le dernier et gagne. 


le joueur en prend 2, 
le joueur en prenû 1 (forcé), 


le joueur en prend 2, 


A un moment donné de la partie, la situation de jeu est ici représentée par 
un couple (N,MAX), où N est le nombre de jetons et MAX le nombre maxi- 


mal que l'on peut prendre. 


Le listing du programme est aonné ci-après; on constatera le choix d'un 
coup aléatoire si N est supérieur à 19, ceci car la recherche de tous les 
coups possibles serait alors trop longue: celà constitue donc la seule 
chance de battre le programme, imbattable autrement... 


On remarquera enfin que la programmation de jeux tels que jeu des allu- 


mettes (jeu de Nim), tic-tac-toe, etc, 


utiliserait exactement le même sous- 


programme ; seule changerait la représentation de la situation de jeu. 


Le programme complet est le suivant: 


1 LLEHF. 
24 LOADNM : EXECEHERA 1 
144 CLS: CEFINHTA-Z: Ce 
":H:HA=H-1 

114 FRIHT"Youlez 
FIHTAS: FRIHT 
124 IFH$= "0" 


VOUS 
GOT SGA 


.. Boucle... 
LOLORS, 3: PFRIHT "JE 
IFH£24 GOÜTOZSA 
FÜR I=1T02440 : HEZT : 
20 CALL 10686 H, MAE. D: 
294 BEEF:H=EH-Û: MAX=ZE#C 
28 FRIHT Ci"jeton" 
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LHEAHS FRIHT'"Lecture des 


5H$;" 


IHFUT'"Lonmkbien de 


commencer CL HAr" 


312 Prendre. ..", 


RUE TE GTOZ A4 
F,HFG CL 

IF Cri THEN H$="= 
srestent":H:COLE 


routines 


de Frocedure 


Jétons au deFart 


“AS=IHFUTS 12:F 


LL EL= E A$= CLR L] 
F4. E 


314 IF H=g THEH ATTFÉ 1, 1:PRINT:PRIHT" Vous avez Ferdu.. 
.…. desole...":CGÜTOSDA 

446 INPUT" Combien Prenez vous de jetonc";P 

4ià IF P£1 OK F>MAX THEN PRINT"'FAUX" ; : GOTO4QS 

42@ N=H-F:MAX=ZXP: IF H>g CGOTOZAS ELSE ATTRE!, 1:PRIHT:PFE 
INT"Vous avez aa9ne..... bravo..." 

Sgû ATIFEG, G:PRINT:FRIHT"Une autre Partie CO, M237"; :AS=I 
NPUTS$C 1: 

Sin 1FH$="0"GOTO1QR ELSE END 

296 * 

335 ‘Frocedure... 

1484 FROCEH, NM, JO, KES. C0 2 

1414 IF H<=M THEH RES=JO: CON: FROCEND 

1424 FOF CO=M TO 1 STEF -1 

1439 CALL1@66N-C0, CO9+C0.1-J0.ARG RES.02 

1444 IF JIO=FRES THEN PROCENL ELSE HEXT 

18S4 FES=1-I0 : COSRNDEK2+.5S : FROCEHC 


REMARQUE: On n'a ici besoin que des routines correspondant à CALL, 
PROC et PROCEND, qui pourront donc être seules implantées (à partir de 
$BD4Q par exemple, l'initialisation étant en $BD@1) et enregistrées sur 
cassette (de $BDO1 à $BFFF) pour cette application. 


Commentaires : 


La variable JO contient @ si c'est au programme de jouer (on a alors un 
coup gagnant si le CALL dans la boucle retourne RES-@, c'est-à-dire 
RES—JO), et 1 dans le cas contraire (on à alors un coup gagnant, pour le 
joueur donc, dès qu'on obtient un RES--1, c'est-à-dire RES—JO encore). 


RES vaut 0 en cas de situation gagnante pour le programme, et 1 dans le 
cas contraire : en cas de situation gagnante pour l'un ou pour l'autre, on 
sort donc directement de la boucle avec RES-—JO; on retourne par contre 
RES—1—JO en cas de sortie normale de celle-ci. 


COUP est le coup gagnant (s'il existe) trouvé par le sous-programme. 


On observera que toutes les parties possibles sont jouées et analysées par 
notre procédure, avec six instructions seulement ! 


On notera enfin que le CALL dans la procédure elle-même ne doit pas 
modifier le coup x envisagé, d'où la transmission par valeur de © par 
exemple ; par contre, le coup x doit être retourné au programme principal, 
d'où une transmission par adresse dans celui-ci. 
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VII. Améliorations possibles 


On pourrait par exemple créer assez facilement la possibilité de faire des 
appels de procédures par nom, et non plus par étiquette numérique. 


Ceci améliorerait la clarté des programmes, et rendrait l'écriture de l'appel 
et de la définition de la procédure indépendante de la numérotation des 
lignes. 


On pourrait du même coup créer des branchements par labels : l'instruction 
BRANCH nom provoquerait un branchement à la ligne commençant par 
LABEL nom, LABEL étant une instruction non exécutable : son adresse de 
traitement serait donc (en 2994 DATA...) $663, qui cherche le premier @ 


’ 


ou ‘’:"” situé après le caractère courant. 


Dans les deux cas (CALL et BRANCHI), le nom serait traité par la routine 
$AGA, qui le rangerait en $657A (voir la routine $A48): le nom serait 
ensuite cherché dans le programme de la même manière qu'une étiquette 
numérique est cherchée par la routine $4A0 (voir GOTO). 
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7 


Les sprites 


On désigne par ‘’sprite”’ (‘lutin en français) un motif graphique program- 
mable mobile sur l'écran. 


Le déplacement s'effectue toujours sans modification ou effacement de la 
scène, c'est-à-dire que tout se passe comme si le sprite passait devant le 
décor: toutes les rencontres avec des objets fixes de la scène ou avec 
d'autres sprites sont détectées automatiquement. 


L'utilisation de sprites facilite donc énormément l'écriture de programmes 
d'animation graphique : elle autorise de plus des animations de qualité: 
formes et couleurs entièrement programmables, mouvements continus à 
vitesse quelconque, etc... 


La gestion des sprites est pratiquement toujours effectuée par un circuit 
spécialisé: celui-ci n'existant pas sur les TO7, nous présentons ici une 
méthode entièrement logicielle, se présentant sous la forme d'une routine 
de 349 octets: elle permet l'animation d'un nombre quelconque de sprites 
différents, choisis ici de taille 16 x 16 points (facilement modifiable). 
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1. Animation graphique classique 


Lorsqu'on désire animer des objets graphiques sur l'écran, on doit effectuer 
les opérations suivantes : 


1. Calcul à partir des coordonnées courantes {xo, Yo) de la nouvelle position 
6, vu, 


2. Effacement de l'objet, situé en ({xo, Yo) (affichage d'un caractère 
“espace” où d'un rectangle (BOXF) de couleur fond”), 


3. Dessin du nouvel objet, en (x1, ya), 
4. X1—+ Xo; Y1 — Yo 
5. Retour au début. 


On a ainsi un temps minimai entre l'effacement et le nouveau dessin; on 
obtient donc un mouvement le moins ‘’saccadé‘” et ‘ clignotant” possible, 
mais non idéal dans tous les cas. 


De plus, le déplacement de formes quelconques, non limitées à de simples 
rectangles, impose l'affichage (par LOCATE et PRINT) de caractères utilisa- 
teurs ; le mouvement ne peut donc s'effectuer que de 8 points en 8 points 
(25 lignes, 40 colonnes) et non de manière continue. 


I. Instruction SPRITE 


Elle permet d'éviter tous les inconvénients précédents, et elle accélère 
considérablement l'exécution de l'animation. 


1. Syntaxe-action 
Notre instruction peut se présenter sous deux formes différentes: 


a) Forme normale: 


SPRITE numéro — (x, y) [, couleur] 
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Le sprite dont le numéro est spécifié (de @ à 15 ici) est effacé automatique- 
ment (par restauration de la scène présente initialement à l'emplacement 
du sprite) s'il était actif, et immédiatement redessiné au nouvel emplace- 
ment (x, y): le décor présent à cet endroit est sauvegardé. 


Le numéro peut être spécifié sous la forme d'une constante, d’une variable 
ou d'une fonction. 


x et y désignent les coordonnées du coin supérieur gauche du sprite (@ à 
319 pour l'abcisse x, O6 à 199 pour l'ordonnée y). 


Si le paramètre ‘’ couleur” est absent, le dessin du sprite est effectué dans 
la couleur courante (modifiable par l'instruction COLOR); dans le cas 
contraire, c'est la couleur spécifiée qui est utilisée. 


Enfin, dans le cas où le sprite recouvre au moins un point de forme” (bit à 
1 dans la mémoire écran ‘’ forme“), la mémoire d'adresse $BFFD est mise 
à O: elle contient —1(&HFF) dans le cas contraire. 


b) Désactivation: 

SPRITE numéro 
Le sprite dont le numéro est spécifié est désactivité : il y a alors seulement 
effacement, toujours par restauration de la scène initiale. 


La première utilisation d’un sprite réalise automatiquement l'activation de 
celui-ci; il n’y a alors pas d'effacement. 


2. Dessin et définition d’un sprite 


Chaque sprite comporte ici 16 x 16 points. 


Le sprite de numéro NUM est défini par les 4 caractères utilisateurs de 
numéro 4 #*NUM + 3 à 4 « NUM, un point ‘allumé’ correspondant à un bit 


NS 


à ]. 


GRS$(4 » NUM + 3) définit les quatre premières lignes du sprite, 
GR$(A « NUM + 2) et GR$(4 «NUM +) les 8 suivantes, et enfin 
GRS(4 * NUM) les 4 dernières. 


Grâce à cette convention, les lignes de chaque sprite sont placées correcte- 
ment en mémoire (après inversion en $BD4B de chaque couple d'octets) : 
voir la deuxième partie pour la représentation des caractères utilisateurs. 
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Exemple: Soit le petit hélicoptère suivant: 


7 6 5 Rés 3 n. _ 2 7 6 5 4 3 2 1 1) 


A7 


Le sprite correspondant, de numéro 2 par exemple, sera donc défini par les 
instructions suivantes : 


14 LLEHR: ZHEZFF: 14 
cn LEFGES. 11 ne. Ets: = 


34 L'ÉFLES 15 AS é 
4 L'EFLF PA LE, A, re 
O4 LEFLESPE SEA, à. ui & 1,,4, 4 


REMARQUE: On verra au paragraphe lIl que l’on peut associer 2 (ou plus) 
sprites pour créer des motifs de 32 x 16 points. 


3. Gestion des sprites 


Chacun des 16 sprites est géré de la manière suivante : 


a) 48 octets contiennent les 16 lignes correspondant au motif du sprite, 
décalé à droite de r positions (r étant égal au reste de la division de 
l'abcisse x par 8, puisque la mémoire écran est constituée de segments de 
8 points). 


On obtient donc 3 octets pour chaque segment de 16 points du sprite, que 
l'on permutera avec les octets correspondants de la mémoire écran 
{mémoire de forme) pour dessiner le sprite, et pour permettre la restaura- 
tion ultérieure de la scène initiale. 


Ces 48 octets sont situés ici en $B8490 pour le premier sprite, en $B460 
pour le second, …, jusqu'à $B9AG pour le 16°. 
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REMARQUE : Si un des 3 octets d'un segment du sprite décalé ne contient 
aucun point de celui-ci, on le remplace par l'octet correspondant de la 
mémoire de forme; à cet emplacement l'écran ne sera donc pas modifié 
par le dessin du sprite, ce qui est normal. 


b) 48 octets décrivent de même la couleur des 16 segments du sprite ; ils 
sont eux aussi permutés avec les octets correspondants de la mémoire 
écran (mémoire de couleur) lors de l'affichage du sprite. 


Ces 48 octets sont situés ici en $B430 pour le premier sprite, en $B49Q 
pour le second, …, jusqu'à $B9D@ pour le 16°. 


REMARQUE : pour chaque octet, la couleur de forme {bits 3, 4, 5, et 6 pour le 
TO7-70) est celle du sprite, sauf s’il n'existe pas de points de celui-ci dans 
l'octet ‘forme de l'écran à cet endroit; on prend alors bien sûr la couleur 
forme” de l'écran à cet endroit. 


La couleur de fond de chaque octet (bits O, 1 et 2, et 7 pour le TO7-760) est 
celle de l'écran à l'endroit correspondant, sauf si l’octet U formé de la 
réunion de l'octet écran ‘forme et du sprite décalé ne contient que des 
points de forme (U—=&HFF); c'est alors la couleur forme de l'écran à cet 
endroit qui est prise comme couleur de fond, ce qui est là aussi normal 
(sprite passant dans une zone de couleur, dessinée par exemple par BOXF 
avec une couleur positive). 


c) 4 octets contiennent respectivement l'abcisse et l'ordonnée du sprite ; 
le premier octet de l'ordonnée (poids fort) non nul indique que le sprite est 
non actif. 


Ces octets sont situés ici en $BECQ pour le premier sprite, $BEC4 pour le 
second, …, jusqu'à $BEFC pour le 16°. 


4. La routine 


Elle détermine d'abord les adresses des zones de gestion du sprite concer- 
né, puis en $BD19 celle du début des 4 caractères utilisateurs correspon- 
dant au sprite (utilisation de l'adresse contenue en $612A: voir deuxième 
partie). 


Après restauration de la scène présente initialement à l'emplacement du 
sprite (appel en $BD34 du sous-programme de permutation entre la 
mémoire écran et la zone des 96 octets correspondants au sprite), l'image 
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du nouveau sprite est construite dans les 2 x 48 octets prévus pour l'affi- 
chage : en $BD39, la forme est obtenue par décalage à droite des carac- 
tères utilisateurs correspondants: en $BD84, la couleur est construite 
comme vu précédemment. 


Il y a alors permutation en $BDBA entre ces octets et la mémoire écran. 


La routine est la suivante: 


ECE3 56 FF LDA #SFF _1-A 
ECS E7 ÉFFEL STA $EFFC Détectera collisions 
ECES EC 4615 JSF: 4515 Positionne sur n° 
EUÉE El: Arr JSF: Sa? rf1 Traite n° sprite 
' EL EEE ISF $SAEEE Conversion en entier 
34 12 FSHS N° et car. courant+S 
27 ar HE $SELCC Désactivation 
1ASE BULLE LC #HAACS 299—hors écran 
EC: 350 JSF: SAC Traite coord..couleur 
EC £i LCE 1.5 N° spriteD 
Ci F CMFE  R&AF <15? 
23 ne ELS $ECDS Oui 
FE AE2C JP SABRE Non=FC Error 
ee LSLE 
32 LSLE Numéro =4-D 
3 ÉELH ADCC  #$ÉELG 
CC É STE L TRS Adr. abscisse-$63 
SL IHCE 
ET IHCE 
UT: Ca STE $ÉS Adr. ordonnée-$65 
HE £2 LCA 2,5 N° spriteA 
CLÉ (ALT) LCE #$E 
30 HUL 
C3 Eh HOCEC  #$E4nA 
CC Er STE $EéT Adr. 96 octets$67 
EC SFéiES LOC C$éé1651 Ordonnée précédente 
CC OÙ STL: SSL …+$5C 
EL 2F6EZ LCC C$é16:1 Abscisse précédente 
CC SA STE %SA …+$5A 
35 12 PLILS À,“ Car.courant-A 
21 LA CFA  A#$&LE Doit-on redessiner ? 
er AE EE $EDA4 Oui—suite 
17 AGEF LESF  $ECEE Non—effacement 
ÊC SFAÏES IH C$61651 Désactivation 
EDG: 5 33 BTS Fin 
ECH4 FC re LOC és VÉ Nouvelle abscisse x 
ELA? EL’ 2F6163 STE L$616359 Reste de x/8 
ECAE C4 4 AHDE  #&H7 nbre.décalages+ 1 
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BCD ac INCE 


BL'GE C7 56 STE $SÉ 
BDin C7 57 STE 57 
BL'12 FC ESTE LDC $6278 Nouvelle ordonnée y 
ED15 EC SFELES  STC C$61651 
ED19 1F 14 TFF: #C N° sprite-»D 
BCE 86 24 LCA #$:A 
BDiC: 3C MUL 32»num. 
ÉD1E CE Zi ACCE  ##5271 
EDZE C3 £A HOCC $Z Début zone des GR$ 
ELZZ 1F 43 TFF: C1] (U—2) sur 1° GRS$ 
ÉCZd4 BE ÊSre LD SÉQrTÉ xX 
EDZ? 196€ ESrE LC EST y=Y 
EL'2E Et: FE ISF: $SFSEE TO7: adr.dans écran 
ELZE C SE TST SSL Sprite actif ? 
136 ZÈ A7 EHE SEL39 Non=suite 
44 pets FSHS “10 Sauvegarde 
F NAS LESF  $ECEE Restaure décor... 
35 59 PUILS  #, 10 et efface sprite 
aF ts ST# $5£ Adr. dans mem. écran 
iWSE 7 LC'r LT Adr. zone forme-Y 
EC: Fiéi JSF $F1E1 TO7: mem.forme 
ET) 1 LOA #61A 16 lignes à traiter 
SF parte STH SSS 
DE, 56 LCE SE Nbre. décalages+1 
D? SF STE $Se 
EC Ca LC ;: ——U 1 segment GR$-D 
1E 23 E*G AE Dans bon ordre 
F SA CLF: SA Pour décalage 
A nra CEC A7 
2 né EE SELS A Décalage terminé 
44 L'5FA Décalage (3 octets) 
Gé FROFE 
Ë SA FOF $3A 
z' FE EF'H $EL'4F Boucle 
EC: Ad ST T Range sprite décalé 
36 SH LCH SSH 
A7 22 STH 2, 
LÉ [a LDOE #$A: 3 octets à traiter 
HE H4 LCA TT 1 octet de forme 
34 = PSHS 
AH id FA à Sprite U écranA 
EC HE TEST + Octet sprite vide ? 
zé 3 EHE $SECEE Non=suite 
ELCEE 47 3F STA 1% Remplacé par écran 
EDCEL: 4F CLFA 
BDEE Ar AB2F ZTA rt A-zone couleur 
ELr?71 35 LE FULE À Forme spriteA 
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EC 
ELCrE 
BCP 
EDFA 
ECTE 
ElreC 
BL564 
ECEZ 
BDed 
EDEE 
ELSE 
EDEA 
EDÉD 


ECH:3 
ECAS 
EDA7 
ÉBDAS 
EL'AA 
ECHE 
ECAC 
EDHE 
STATS) 
EDE1 
BCE: 
EDÉE 
BDER 
BDERA 
ELEC 
ECEE 
ECC 
EDC:z 
ECCE 
BCCE 
ECCE 
BDCE 
RCCA 
ECCZ 
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na an 
n 
[on] 


[ri 
ü 


UN me TN Qu M 
BND en SR Tin 


TM 
an 


Lire DOUTER 


DID EM Ie RIDE TM 


ji ee MG Ti 


D M 


fa 
in 


MSUOANMEM Di 


Uni 
QQ oi Lt Lt CO OU CA 5 BR 


M 
T 


MNT 


AHC'A 
BEC: 
CLF 
C'ECE 
EHE 
LEHZ 
CEC 
EHE 
LCH 
STA 
LC 
DEC 
LCH 
LSLA 
SLA 
LSLA 
STA 
LOE 
Lo 
TS5T 
GER 
HHDA 
OFA 
INC 
EHE 
LCA 
AHL'A 
L5FA 
LEFA 
LSFA 
FA 
STH 
C'ECE 
EHE 
LEH* 
C'EC 
EHE 
LDX 
EFH 
LD 
LE 
JSF 
STX 
LC 
JSF: 
LCA 
STA 
LC 


+ 
$EL 7H 
&BFFEC 


$EL'E 1 
37,4 
$eS 
$EL'4= 
#$14 
$S 2 
États 
EPL 
$SEUSS 


Collision avec formes ? 
Non 

Oui—0-S$BFFD 

3 octets traités ? 
Non=>boucie 

ligne suivante écran 
Terminé ? 

Non—ligne suivante 
16 lignes à traiter 
pour couleur 


Sélect.mem.couleur 
Couleur sprite.. 


bits 5.4,3(forme) 


3 octets à traiter 
Couleur écran-A 


Pas de pts.du sprite 
Garde couleur fond 
Couleurs fond+forme 
A-ton U--FF? 
Non—terminé 
Couleurs écran—A 
Garde couleur forme 


bits O,1.2(fond) 
Couleurs fond+forme 
Rangement couleurs 
3 octets traités ? 
Non boucle 

ligne suivante écran 
16 lignes traitées ? 
Non—ligne suivante 
Oui 
Permut.écran-zone 
Abscisse précédente 
Ordonnée précédente 
TO7 :adr. dans écran 


Adr.zone 96 octets 
TO7 :mem.forme 


16 lignes à permuter 


2 octets écran 


ELC'C4 ES Hd LCC 2T 2 octets sprite 


ECDE EF A1 ST ++ 

EDCE EC: 4 STE ,% 

BCDA HE Ge LOH Hs 3° octet écran 
BCD Eë Hd LDE 1 3° octet sprite 
ECLCE HF HE1 STH aT+ 

ÉDER EF Ge STE Pa 

ELLE? ET QZES LEE 45. Ligne suivante écran 
ELES ac SF CHFÉ  #$SF4n Sort-on de l'écran ? 
ELES c4 Ed EH£ $ECEE Oui terminé 
ECERH h 55 CET Certes 16 lignes traitées ? 
ELEC 26 E4 ÊHE ECC Non—boucle 
ECEE FË EFCLX LCA $SEFLS 

ELCF 1 +4 LSFA BitdC 

ECF 2 24 ans EHS $SELFE C- @—terminé 

EDF 4 FH EFCS CEC SEFPLS Sélect.mem couleur 
ECFF E AS LT AE 

EDF cd CZ EF'A HECCE Perm.coul.écran-zone 
ECFE 34 FTS 


REMARQUE: La routine devra être légèrement modifiée pour le TO7-70: 
adresses de gestion déplacées éventuellement, adresses $F966 et $F161 
du moniteur à remplacer par $EF15 et $F328 :$F966 place dans X l'adres- 
se de l'octet de la mémoire écran contenant le point de coordonnées (X, Y): 
$F161 envoie 1 dans le bit @ de $E7C3, ce qui sélectionne la mémoire de 
forme : voir 2° partie). 


5. Mise en œuvre 


Tous les sprites doivent être désactivés au départ ; ceci sera réalisé en ajou- 
tant une instruction JSR DESACT dans le sous-programme d'initialisation, 
DESACT(SBCAB ici) étant l'adresse d'une petite routine initialisant les 
poids forts des ordonnées ($BEC2, BEC6, … BEFE) avec une valeur non 
nulle. 


On utilisera pour celà les instructions suivantes: 


ELRS SE EÉECSZ LE #YEELSZ Ordonnée 1°’ sprite 
BLHE 56 1F LCA ##$1F Pour compter 
ÉLRAL Hr 51 STA A++ 

BCAF 4H DECRA Terminé ? 

BCBG zé FE EME $SECAC Non continuer 
ELEZ 39 FTS Oui 
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On ajoutera donc au programme de création les lignes suivantes : 


1:19 LHIH EL ELHE 
ce CHIH SFFITE.SHELRAS.SE.E ; 
2614 CHI Se FF BE... 24 03,57 


Enfin, on ajoutera en 299 le nom (SPRITE) et l'adresse ($BCB3) de la 
routine. 


6. Exemple 


Après sauvegarde (SAVEM ‘’ROUT”, &HBA@1, &HBFCC, O) de la routine 
accompagnée de l'initialisation et des tables de noms, on pourra animer 
l'hélicoptère précédent par le petit programme suivant: 


du LLEHF, SHÉZFF . 12: LOACH "ROUT'":EXEL EHBAB1 
dis LCEFLRS: 11 = 65, 245,2,4, 31: 122.113 
324 DEFLFSE 14 = “54.63, 2£rT De 132. 136, 
454 CEFSHS: A 1=127,28S2, 6.4.4, 4.4 
454 DEFGESES 16, 4, 0.05, 4.0, it 
SAS T=RHD: 1 14158: CERHLé 1 #5 

UR 4 Ti & STEF -2 


5 c rt KT OL 

39 IF PEEKS &HBFFL «= Hi THEH BEEF “Lallision 
o44 FÜR I=1 T0 ZW: HEXT ‘Falentissement. 
SA MEST: LOTUS 


On constatera que l'hélicoptère se déplace sans effacer les formes qu'il 
recouvre dans son mouvement; toutes les ‘’ collisions” avec l'une d'entre 
elles provoquent ici l'émission d'un “bip” sonore, bien sûr sans que le 
mouvement soit stoppé. 


Enfin, la couleur du sprite change à chaque trajet. 
I. Application aux jeux d’action 


Nous donnons ici un exemple simple, que l'on pourra compléter à loisir: 
sonorisation, dessin de nuages dans le ciel, effet d'explosion, contrôle du 
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second hélicoptère par un second joueur (voir la routine transformant le 
clavier, dans la 4° partie), etc. 


Le jeu consiste à lacher une bombe (par appui sur une touche quelconque 
du clavier), qui tombe en chute libre selon la parabole normale: elle doit 
atteindre l'hélicoptère qui passe en sens inverse dans le bas de l'écran. 


Le programme utilise 4 sprites différents, le 1°" et le 4° étant associés pour 
créer un motif (hélicoptère) de 32 x 16 points; on notera à la ligne 27@ la 
désactivation initiale du 1°’ sprite, ce qui permet une animation correcte du 
motif. 


Le programme est le suivant: 


CLÉRAF. SHESFF , 16: LOADNM:EXECEHERA1 CLS 
L'EFSFS: SP LU To 29 Mo. H, (s) 
DEFLR SE 
DEFGR$E 1 ze: 2 Zi: 
CEFGRSE D =137, 15 2: 15.4,1%. à, 12 
DEFGRGE Tizi, 3, LE 3, Ed, 193 “5 
CEFSRSE É 125, ZE, 5,1, 14.0, 4,6 
DEFGE SES 126.4, 04,6,0.41. 4, 
CEFLESE à 120, 6.64, 0,06, 04,6.4 
CEFGRSE 1122250, 243, 2,0, 
r 


Us CG 7 SJ Ts CR a Cut Pi de 
DES DC GREC 


H CEFLRGE LH UISES, LE es, LZP, 
104 CEFGRSE SG U=12T. 252, 0.4. 
115 CEFSRS S1=0,0.0.04.4.4. 
124 CEFLRS 1512255. 
154 DCEFSR Se. 5 
14 DEFGRSE 
159 CEFORSE = 37 : 
128 SL: FÜR HTIR=Z & T0 13 
206 HS=IHÉE TS: SFRITES-S 4, 542 ELLE 
216 ÉEEP:LOCATES, 4.4 COLOkE. 3 FRIHIMSUURE "SSL. "SUR H 
ne LOLUR 4, 6 
£ BAEFHD: 1 +15 
: "HDe 1 145641 28 
244 TEzTI+16: TIF=6 
299 FOR XI=ÿ TD £SES STEF 3+FHlre 12 
260 HIZSAIHIER IF TIR = THEH TIR=- IHFEYS :""ot. Ge ELSE 
YE=TB+TIR:TIF=TIF+.1E 
274 SFFITER:SPRITES- HUE Ir SPHITEN- SR Ce SFFRITEL-E 
TE: 
JF FEEEF: SHEFFL 2 THEH SPFRIIEZ-É 364 -SJ,NC 1 1 OHEËT 1 
A SFHITEL:SFFRITEZ FRITES CLS 
MG IF TE 13 LP TES GOT zu 
IF ct LINE 4 


Lure 
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Vin SE 


Lai (og Lui Let CO 
2 


Di Orin & CO lee me 


LOST: 


Qa Ci Uj Qi 


144 


SCREEND, 1.1: S0=zSC+i 
FRINT:FRIHT:ATTEE1, 1: FRIHT'TOUCHE...":HITFER. 8 
EEEF FOR I=g TO 1544: HEXT 

SCREEHS.6.6 

HET HTIR 

EÉEEF : LOCATEN., GR: FRINT'SCORE : "3 SC; "SUR": HTIE 
FRINT:PRIHI:IHPUT"UHE AUTRE FARTIECC-H2 ";: A$ 
IF 4$="0" GOT 34 

EHD 


6 


Résumé de la 
troisième partie 


Nous avons donné un programme BASIC permettant de créer un nombre 
quelconque de fonctions ou instructions nouvelles, que l'on peut utiliser 
ensuite exactement comme celles d'origine. 


Nous avons présenté alors un certain nombre d'applications permettant 
d'utiliser : 


— les fonctions FNR et FND de conversion degrés-radiants, 

— les boucles WHILE..WEND, 

— l'instruction INC d'incrémentation rapide, 

— l'instruction SWAP permutant les contenus de deux variables, 


— les instructions CALL, PROC et ARG permettant d'écrire des procé- 
dures à variables (ou tableaux) locales, la récursivité étant permise, 


— l'instruction SPRITE permettant d'animer des objets programmables 
entièrement définissables (taille, couleur, motif). 


Nous donnons ci-après le listing de tous les DATA correspondants, à écrire 
dans le programme de création. 
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Rappelons que l'on pourra bien sûr écrire d'autres instructions. en s'inspi- 
rant des mêmes principes : on veillera particulièrement à prévoir toutes les 
possibilités de mauvaise écriture, ou de mauvais emploi, afin d'éviter tout 
blocage possible du programme BASIC utilisant ces nouvelles instructions. 


Pour ceux qui voudront adapter à d’autres ordinateurs les notions 
présentées ici, nous nous sommes efforcés d'être le plus clair et le plus 
général possible; c'est ainsi que pour chaque application, nous avons 
donné le principe général, puis des explications sur la réalisation et le fonc- 
tionnement de la routine; celle-ci a ensuite été commentée instruction par 
instruction. 


Nous pensons donc que l'adaptation se révèlera rapidement simple. 
Listing des DATA: 


41 DATA Initaalisations. 2HEHBI. LL. EH. FC BEST 

"14 CATA Ce, ÉNTG FD. 6224 C2. DIE FD, DEICrE 

à C'HTH Eu ELHE 
CHAT CC.EF13, FD, EC. RE. EFHA EF. ÉLCNE. SE FE EF. RE Ts 

SAUT, ses F£r. Ve 

CHTIH SE. EFH1.E 


M OH TEs TES: PE: SES FIN 


‘Foutinez 

ans cos L10NS LHENS4A, AC EZ, 54,2, 9C 
1CE 1. PESE. CC. SSF EE LC. F 
DE PSbe EI. 4. 26,7, TÉ. A2, FE. FFS.FIH 


HHILE-HEHC, HET, 5 CE .4. EL. 5, SE. DE. EBA.5 
A. EC LEAC.SE. 76. SF. ZT. 30. ES. CE. EX SE. NF. 34. 4EE 


Le 


2114 CATH 2,82, HE. 61.30.63. ie 
F3,E0, 21A. BC, ICS, 27,7, ÈS. 
FE. 16689,FIH WEHC 


ee PRE : 353. AE : 
él 


195 
SEA CATA IHC.ZHEHES, EC. Rd42. ii .5F. SC 2h 11.8E CSN. 
» Ho SE. FAC. EC. 1048.C0.S5,26E. -234.2, C.CH.EC. 
ss ED SSAG SE. SF. EC. Z4FD. ESA, 4.6. AE. 64. SF65, 26 
53, EC, 1AEF, EL. 2590. FE.ilSe., | 
CATA SURF, LHBAFC. EG, A8 07.3 
. 2, EC, 37: 30, CA: BC. 598,26 F34. 
1. ED: SA. 986.42, 3E.30.9F 
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24añà CATA C sa 3 Ce nrhseer, EF. EFFE, 148785 


he -ÉFC. ET. FE6,C6,6,60336.9L.E 
.4c FÉrie) d 3: A,204,23, EC, 514,96, 5, iF: 
NT SA, pe 3F.1F; 14: "ED: 37, 24.E 
2495 GATE a0.B2.C 1. CW. ED, 2F, bp a 
#81. 29,274 90, CA CE: 1E: (USE | 24.1F.41,0C, 
A7 3 25. EC. -EFFE.ZÉ.34.BCLÉE 9, ?E sé L 
154 See BE, 1. 2 st 36, BE. EC. A4E. Cé,?, 
sÉ 3.FIH CALL 
. LED, 7E6. 35, 44.35 


FE 

se 

LÆ. 720 OF. dE. He Ed, 7E € FINE PROC 

2535 

604 CATH SFRITE.EHECAS.SE. BECE. &6, 1F. A: 81. 4.26 FE. 34 
SG CATA S6.FF.E7 2 EFRD: EL. 515 : EC, FG.EC.EËE. 34. LES 
,1GGE, DÈR POV SSSE EL. PE EC. SSSR. C3 EFCA. 
[ER SC, SC, DC,65, AE. 62 CCE 

ZEEA CATA EÈ FÉES. CD, 35. 12.F1 CEE 


17. H6F EC Pete Dur 
284 DATA de 2e à, 
.Eb. Fetes 


EL Le 
SPA IF. 2.BE-6S7é, 16 


EC. FRÈRE AFOSÉ rs Br ECFIEL.E 
FL, et “ÈF A1.FC. 54. hr. Le AY HP. HET. 
cd. + HS. 26. Ed.Er. Er C5.dgd4. 4. PF TH.Er 
3, 294.FIH SPFITE 
gas CATA FIN des Fontinez 
286 ATH IHL,LHERÉS. SUAP. £HERFT, LALL. ÉHEESS. FROIL 2 HEEC 
E.AFL HPF 3, SERIE. EHECEZ.FTH 
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Résultat de l'exécution du programme de création: 


FOUTIHE Jaitialisatinns 
Cetuit : ERA Fin: EH: Somme Fi 


FERITIHE Fonctions 


Cakbuit : F4 Fin EfHelC Somme: SRE 
POUT(HE HHILE-WHEHE 

Crebat EATA Fin:EHE4 Somme Frs 
FEHITIHE IH 

Cebut FHES Fin EAF3 orme ÉAdd 
MOUITIHE <HHF 

Gebhut  EHF1 Fin EFZTC: Lorare 4:45 
FOUITIHE CALL 

Letoir HF Fin:FECE orme 1972 
FODITIHE FREE 

Début. ERUT Fin ECHE Somme LEA 
FOULITIHE SFRITE 

Cetuit  EUÛHE Fin ELFE Somme  SHÈlS 


Enreñistrer de AMI 3 EFLE car SAVEN: 


Cas du TO7-70: 


Les valeurs soulignées seront remplacées par EA24 à la ligne 2200, et par 
EF15 et F328 aux lignes 2630 et 2669: voir pages 110 et 141. 


REMARQUE: Toutes les adresses d'implantation données en tête des 
routines seront changées dans le cas du TO7 de base (fin de la RAM en 
$7FFF), et éventuellement aussi pour le TO7-7@ si on veut bénéficier de 
toute la mémoire disponible (fin en $DFFF). 


On veillera alors bien sûr à modifier la ligne 2990, ainsi que les adresses 
écrites dans le sous-programme d'initialisation (et en particulier aux lignes 
1720 et 1730: voir les remarques du chapitre IV) et dans les routines 
correspondant à CALL et SPRITE. 
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Quatrième partie 


AMÉLIORER 
LES PERFORMANCES 


Nous avons vu dans la 2° partie qu'à chaque rencontre par l'interpréteur 
d'un nom de variable ou de tableau, il y a ‘balayage ” des zones correspon- 
dantes jusqu'à trouver le nom en question. 


Il en est de même pour les étiquettes de branchement, recalculées et 
recherchées dans le programme à chaque fois. 


ll en résulte évidemment une chute des performances par rapport à celles 
qu'offrirait un compilateur, où tout ce travail (et toute la traduction en 
langage machine) est effectué une fois pour toutes, préalablement à 
l'exécution. 


Par contre, ce mode de traitement permet un travail ‘conversationnel” 
extrêmement souple et agréable, puisque les modifications d'un 
programme en cours de mise au point sont prises en compte immédiate- 
ment, chose évidemment impossible avec un compilateur. 


Toutefois, un programme ayant été mis au point, il devient complètement 
inutile de bénéficier de la possibilité précédente. 
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Nous proposons donc une méthode permettant de compiler au fur et à 
mesure de l'exécution les adresses des variables, ainsi que les branche- 
ments et les Valeurs des constantes. 


Notre méthode opère automatiquement à partir du programme écrit 
normalement, et c'est en principe sous cette forme que celui-ci sera 
conserve sur bande ou disquette ; la compilation n'est mise en œuvre qu'a- 
près exécution d'un sous-programme dl'initialisation, le programme 
pouvant bien sûr être modifié à volonté auparavant. 


On constate donc que les contraintes apportées par cette compilation 
interactive” sont minimales; le résultat est une vitesse d'exécution prati- 
quement doublée. 


Toute application qui “tourne” verra donc ses performances très nette- 
ment améliorées par l'application de notre méthode, mise en œuvre par un 
simple EXEC écrit au début du programme. 


Nous parlerons aussi dans cette partie de l'adaptation (toujours possible) 
de cette méthode à d'autres micro-ordinateurs que les TO7. 


Enfin, nous commencerons à voir comment modifier l'action du clavier des 
TO7, dont le mode normal de fonctionnement est tout à fait inadapté à 
certains cas (jeux en particulier). 
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1 


Modification du 
fonctionnement 
du clavier 


Tous les jeux opérant en ‘temps réel” se présentent sous la forme d'une 
boucle, dans laquelle on lit le clavier ou les manettes de jeu; en fonction du 
résultat de la lecture, une action (déplacement d'un objet par exemple) est 
effectuée et ses conséquences analysées (collision ou non...), après quoi il y 
a retour au début de la boucle. 


Le clavier des TO7 est malheureusement très mal adapté à ce type de fonc- 
tionnement puisqu'en cas d'appui continu sur une touche, il y a en perma- 
nence décodage de celle-ci, ce qui provoque à chaque fois une temporisa- 
tion et l'émission d'un “bip” sonore: celà est désagréable, et ralentit 
surtout énormément le déroulement du programme. 


Nous allons voir qu'il est facile de supprimer cet inconvénient, à partir des 
observations de la deuxième partie. 


I. Suppression de l’action du clavier 


Il est possible de supprimer les ‘bips’ émis en rafale en cas d'appui 
continu sur une touche en intervenant sur le registre de contrôle $E7C1 du 
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part P du circuit 6846 du TO7 : il suffit en effet de faire pour celà POKE 
&HE7C1,0: réciproquement, POKE &HE7C1,48 permet de revenir à la 
situation normaïe. 


Pour le TO7-7@, il suffit de mettre à 1 (par POKE &H6073,1) le registre 
BUZZ du moniteur. 


Ceci ne résout pas notre problème, puisqu'il y a toujours décodage des 
touches appuyées et temporisation, d'où ralentissement très sensible de 
l'exécution. 


Or, on a vu dans la 2° partie qu'à chaque nouvelle instruction du BASIC, il 
y a appel en $2AF9 de la routine $32BB de surveillance du clavier: celle-ci 
commence par un appel de $6294, où on trouve 3 octets disponibles (voir 
3° partie), le premier contenant RTS. 


En $6294, la pile S contient donc l'adresse $2AF3 (retour de $32BB), puis 
$32BE au sommet (retour de $6294): si on dépile cette dernière adresse, 
un RTS provoquera le retour directement en $2AF3, sans exécution de la 
routine $32 BB. 


Pour supprimer la surveillance du clavier à chaque instruction BASIC 
exécutée, il suffit donc d'écrire en début de programme: 


POKE &H6295,98 :POKE &H6296,57:POKE &H6294,5ÿ 


Ceci correspond en effet à LEAS 2,S/RTS. 


On remarquera que ceci ne modifie en rien le fonctionnement des instruc- 
tions INPUT et de la fonction INKEY$, qui restent donc parfaitement 
utilisables. 


REMARQUE 1 : Il faut modifier $6294 en dernier et non en premier, car il y a 
appel de $6294 entre chaque POKE, d'où ‘plantage si on commence à 
implanter le LEAS avant d'avoir implanté la partie adresse. 


REMARQUE 2 : Les touches STOP et CNT/C ne provoqueront bien sûr plus 
l'arrêt du programme, qui devra être éventuellement stoppé par la touche 
“Initialisation”; ceci ne comporte aucun inconvénient (taper le 1” du 
menu pour revenir au programme). 

Pour revenir au fonctionnement normal du clavier, on fera un simple: 


POKE &H6294,&H39 (code de RTS) 
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Exemple d'application 


Dans la boucle d'un programme temps réel, un INKEY$ ou IN 
INPUT fonctionnera exactement comme d'habitude, mais le clavie 
lu que lors de l'instruction correspondante. 


En cas d'appui continu sur une touche (par exemple pour un jeu devæ 
déplacer un mobile : raquette, ou vaisseau spatial, etc..), il n’y aura doric 
plus le ralentissement de l'exécution, et l'émission des ‘’bips”’ en rafale. 


Nos seuls trois POKE rendront donc beaucoup plus agréable l’utilisation de 
tous les programmes de ce type. 


Il. Jeux à un ou deux joueurs par le clavier 


1. Le problème 


Nous allons traiter le cas où l’on désire pouvoir déplacer un mobile à partir 
du clavier, 2 joueurs pouvant jouer en même-temps, l’un avec les touches 
de déplacement du curseur, l'autre avec les touches A,Q,S et W situées sur 
la gauche du clavier. 


Pour jouer à partir des touches de déplacement du curseur, on doit norma- 
lement écrire : 


AS-INKEYS:IF A$-"”” GOTO a1 
ON ASC(A$)-7 GOTO « 2,æ3,n4,n5 


Ceci ne permet pas les déplacements en diagonale et le jeu à deux joueurs, 
et est sensiblement plus lent que le simple: 


ON STICK({I} GOTO.. 


que l'on peut utiliser avec les manettes de jeu. 


Nous allons donc écrire en langage machine une routine appelée par USRG 
et retournant exactement les mêmes valeurs que l'instruction STICK: on 
pourra donc remplacer toute utilisation de STICK par le simple mot USRG, 
permettant de se passer des manettes de jeu, avec un fonctionnement et 
une rapidité exactement équivalents (au prix il est vrai d'une manipulation 
un peu moins agréable). 
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Les déplacements en diagonale seront simplement obtenus par l'appui 
simultané sur 2 touches; par exemple, T et —,ou ÂetS, correspondra à un 
déplacement selon 7, codé 2. 


L'appel du USRO(G) correspondra au décodage des 4 touches de déplace- 
ment du curseur; l'appel de USRO(x) avec x70 décodera les touches A.Q,S 
et W logiquern1ent disposées, c'est-à-dire À correspondant à T, Q à, S à 
et W à1 


Les valeurs retournées (les mêmes que par STICK) sont les suivantes: 
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8,1, 
7+ 6 3 


2. La routine 


Le décodage des touches utilise l’organisation matricielle du clavier, vue 
dans la 1°" partie: si on place par exemple la valeur &HFB en $E7C9, le 
bit 3 de $E7C8 sera à @ si la touche Q est appuyée, etc... 


La routine est la suivante: 


BD34 EC 2403 JSF $z4ac3 Conversion argument 
BC33 £6 FE LCA #$FE G-bit@{iTO7) 
BC3S ET ET7CS STA $E7C9 se 

BC38S CC A2UE: LCD #SG2UE 2-FD 

BCD3E 8E 45ag LDX #$UUUG 

BD3E C S£ TST Chi Joueur à droite ? 
Bla 26 GS BHE $ED4A A.Q.W ou S 
BD4z 8D 32 BSF $EC7E Si T.9-x 
BC44 ec 34 BSF $BLCTE Sie—,7-X 
BD4Ë £D 2E BSF  $ED7E SiL.5-x 
EL4S 2Q i1u EPA SEL'5A lecture de — 
BL4A 4 DECA 1-FE 

BD4B C6 ar LDE #su7 

BDAL ED 27 ESF $ED76 Si W.5+X 
BD4F CC 290B LDD #S2QUE: 20-DF 

BDS2 ED Z2 BSP $BC76 Si A9-xX 


BDS4 86 GB LDA  #$08 8=F7 


BD56 sc 23 BSR $5BD7B Si Q,7-X 
BDSS C6 25 LDB #05 

BDSA 8C 0589 CHPX #S0009 

BDS5D 26 92 BNE sBD61 

BD5SF 3a 18 LERAX -8,Xx Si f ou A,1X 
BD61 8D 13 BSR SED7E Si + ou S,3-X 
BLE6E3 1F 1Q TFR *:D 

EDES 04 LSRB 1 ou 2 touches? 
BL66 z4 gi BHS $SED6S 2 touches 
BLUES 99 ROLB 1 ou 3 touches 
BCE Ci 48 CMPE  #$U8S 

BD6E z3 Gi ELS SBLDEE 

BLé6éD SF CLRB 3 ou 4 touches 
EDEE CC 57 STL S5r 

BD7@ 56 az LCA #$az Type entier 
BD?72 8E 6155 LEX #$6155 Adr.AC.flottant 
ECS 34 RTS Retour au BASIC 
BCE 1A ai ORCC  #S91 1-C 

BL76 73 E7C9 FOL $SE7C9 Ligne suivante (TO7) 
EC7B CG a2 SUBE #$gZ 

ECFC B5 E?7CE BITA S$E7CE Touche lue appuyée ? 
BLEQ 26 G2 ENE $ELEd Non appuyée 
EDEZ 34 55 LEAX E,4 B+X-X 

EL£4 33 RTS 


REMARQUE 1 : En cas d'appui simultané sur trois touches (ou sur les qua- 
tre), il y a retour de la valeur @: il en est de même si aucune touche n'est 
appuyée. 


REMARQUE 2 : Pour le TO07-70, il faut placer une valeur de @ à 7 sur les bits 
O, 1 et 2 de $E7C9 pour sélectionner une ligne du clavier: on devra donc 
modifier $BD34 (valeur 07 au lieu de FE) et $BD78 (DEC $E7C9 au lieu 
de ROL $E7C9, c'est-à-dire 7A au lieu de 79). 


3. Utilisation 


La routine précédente sera implantée dans un programme devant utiliser la 
lecture du clavier en écrivant au début de celui-ci les instructions 
suivantes : 


14 LLERF , HEC LEFLSR = ARE 
26 FURE 2H8<935, 983 FUÉE &HEZSE. 
3 F0h [I=tHËD58 TO £SHEFFE 

+à FEADC HB:IF H$::"FIH" THEN FOKE I. YALS "EH"+AS$ 2: HET 
SHUA LAIA El F4, C3, 66... 36, 89.33. FIH 


Sr: FOKE £HEZ34. 5 


MABQUE 1 : À la ligne 2000, les adresses ($24C3, etc...) devront bien sûr 


‘re écrites octet par octet. 
autre part. l'adresse $BD30 écrite ici est pûürement indicative. 


REMARQUE 2 _ si on désire économiser de la place en mémoire, par exemple 
pour le TO7 si on ne dispose pas de l'extension, on pourra mettre les DATA 
en tête du programme {lignes 19, 13 et 16) et implanter la routine directe- 
ment dans les DATA eux-mêmes en écrivant: 


34 DEFUSRG=SHESFA : FOR ISLHESFA TI SHPFFF 


4. Autres possibilités 


Les instructions précédentes permettront d'utiliser USRO(I) exactement 
comme STICK(I), les deux joueurs pouvant donc jouer simultanément, et 
indépendamment bien sûr! 


On pourrait de même créer très facilement une routine appelée par 
USR1(I), lisant par exemple la touche ‘ENTREE pour le joueur Q et la 
touche ‘RAZ" pour le joueur 1 ; on pourrait ainsi remplacer exactement la 
fonction STRIG lisant l'état des boutons de manettes de jeu. 


Pour cela, on enverra la valeur & HFD (06 pour le TO7-7@) en $E7C9; 
selon la valeur de l'argument du sous-programme, on lira ensuite le bit 3 
(touche RAZ) ou le bit 4 (touche ENTREE) de $E7C8. 
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2 


Recettes classiques 
d'amélioration 
des performances 


En suivant les quelques conseils donnés ici, on pourra ‘sans effort ” 
accroître sensiblement la vitesse d'exécution d'un programme, en général 
d'environ 10 à 15 %. 


1. Écrire en début de programme les variables les plus souvent utilisées, 
en leur affectant une valeur (et non pas en les écrivant dans un calcul: voir 
2° partie) : elles seront ainsi créées au début de la zone des variables, et 
donc trouvées plus vite à chaque utilisation. 


2. Utiliser des variables entières (définition DEFINT) chaque fois que celà 
est possible: les calculs sont alors beaucoup plus simples, et donc plus 
rapides. 


3. Utiliser l'instruction INC de la 3° partie pour tous les calculs du type 
X=X+expression. 


4. Remplacer les constantes numériques souvent utilisées, et comportant 
3 chiffres ou plus, par une variable (CT1, CT2, etc...) : ceci évite de répéter 
le calcul de la constante, relativement long puisqu'effectué à partir des 
codes ASCII de chaque chiffre. 
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5. Essayer d'utiliser des boucles FOR ou WHILE (avec la routine de la 
3° partie) au lieu de IF ou GOTO. 


6, Utiliser ON au lieu de IF. 


7. N'utiliser que des variables simples ou des tableaux à une seule dimen- 
sion, ceci étant en principe toujours possible ; la recherche d'un élément est 
alors nettement plus rapide. 


Un tableau à deux dimensions A{n,m) sera donc par exemple remplacé par 
le tableau B ((n+1)«{m+1)—1), dont tous les éléments B(K) pourront être 
atteints ‘ligne par ligne” par: 


FOR 1-# TO nx(m+1) STEP m:FOR K-I TO ii:m-1 


8. Ne pas écrire dans la mesure du possible la variable de contrôle d'une 
boucle FOR après le NEXT ; ceci permet en effet d'éviter la recherche de la 
variable à chaque passage par le NEXT. 


On notera enfin qu'optimiser la vitesse d'exécution d'un programme 
conduira souvent à augmenter son occupation mémoire, et inversement !.. 
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3 


Compilation 
intéractive des 
adresses de variables 
et des constantes 


Lorsque l'interpréteur rencontre une variable dans le programme, il 
recherche celle-ci dans la zone correspondante, située juste après le 
programme lui-même; s'il ne l'y trouve pas, la variable est ajoutée à la fin 
de la zone, après déplacement de la zone des tableaux (ceci dans le cas 
d'une affectation où d'un FOR, etc...). 


On peut en déduire qu'une variable créée en mémoire n'est jamais 
déplacée lors de l'exécution, quelque soit son type {numérique ou chaîne). 


A partir de cette observation, nous allons voir qu'il est possible de ”court- 
circuiter”’ la routine $A48 de recherche d'une variable: on obtiendra ainsi 
une amélioration des performances beaucoup plus nette que celle que l'on 
peut obtenir par les seuls moyens précédents. 
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1. La méthode 


1 Principe 


Lorsque : interpréteur rencontre un nom de variable, nous remplaçons dans 
le programme lui-même le nom de la variable par son adresse ; celle-ci est 
donc cormpilée automatiquement lors de la première exécution de l'instruc- 
tion correspondante. 


Lorsque l'interpréteur repassera ensuite sur la même instruction (cas d'une 
boucle), il pourra alors aller directement à la valeur correspondante, sans 
aucune recherche. 


2. Précautions à observer 


Une adresse étant codée sur 2 octets, la compilation ne pourra être effec- 
tuée que si le nom de la variable comporte au moins deux caractères, ou un 
caractère suivi d'un espace ; déplacer la fin du programme pour ajouter un 
espace déplacerait en effet les variables, rendant fausses les adresses déjà 
compilées. 


Nous avons vu d'autre part qu'on ne pouvait pas placer dans le programme 
lui-même les valeurs &H0,22,3A,89 et FF (à cause de la routine $66B 
cherchant la fin d'une instruction, et utilisée par GOTO.IF,FOR, etc...) ou 
&H8F81,8FAF,C481, etc. (routine $16AD utilisée par FOR ET WHILE). 


l'est évident qu'on ne peut pas non plus écrire comme premier octet d'une 
adresse une Valeur correspondant à un code d'instruction; par exemple 
après un THEN, une adresse $8@xx serait interprétée comme étant une 
instruction THEN END, d'où l'arrêt du programme! 


Enfin, l'interpréteur devra pouvoir distinguer une adresse (déjà compilée) 
d'un nom de variable non encore compilé, qui commence toujours par un 
octet contenant une valeur de &H41(A) à &H5A(Z) (les noms de variable 
sont en effet toujours codés en majuscules, même si on les écrit en minus- 
cules) ; une adresse ne devra pas non plus être confondue avec une cons- 
tante, ou une parenthèse, etc... 


Finalement, le premier octet d'une adresse compilée ne pourra être 
compris qu'entre &H5D et &H7F; on utilisera en effet les valeurs infé- 
rieures à &H20 pour la compilation des constantes. 
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Le deuxièrne octet devra être différent de &HG,22,3A,89 


Si une de ces deux conditions n'est pas respectée, la varial 
simplement pas compilée, d'où un fonctionnement ‘normal 


REMARQUE: La première condition est toujours vérifiée pour te TO 
extension mémoire; ceci permet dans ce cas de simplifier la routine. 
évitant le problème du déplacement évoqué ci-après. 


3. Mise en œuvre 


Toutes les variables d'un programme ont une adresse supérieure ou égale 
au contenu « de $611E (début de la zone des variables: Voir 2° partie). 


Au lieu d'implanter l'adresse réelle y d'une variable, on implantera donc la 
valeur y+d, d étant un déplacement (négatif ici) égal à #$5BQ1—«. 


La première variable aura donc son adresse compilée par la valeur 
&H5B01, etc..; bien entendu, une variable sera ensuite retrouvée en 
retranchant le déplacement d à l'adresse. 


Ceci permettra de compiler un nombre maximal de variables différentes, 
qui pourront donc occuper 9471 octets (valeurs de &H5B@1 à &H7FFE, 
&H7FFF n'étant pas compilée à cause du FF): ceci correspond à environ 
1200 variables réelles différentes: ce nombre ne sera à coup sûr jamais 
atteint, quelque soit l'application, et la taille du programme! 


Cette constatation permet de se passer en pratique du test: ‘adresse 
compilée <&H8009", et ceci même dans le cas du TO7-76. 


Le déplacement d sera calculé une fois pour toutes en début de programme 
par la routine d'initialisation de la compilation. 


4. Initialisation 


Notre routine, à écrire, devra remplacer la routine $A48 de recherche d'une 
variable; cette dernière commence en $A4D par une instruction JSR 
$6297, adresse où l'on trouve RTS suivi de 2 octets inemployés (voir 
3° partie). 


D'autre part, notre compilation va modifier comme on le verra le traitement 
des opérandes, c'est-à-dire la routine $770 commencant par JSR $627C. 


161 


Le sous-programme fl'initialisation doit donc calculer le déplacement d. 
rangé {ci en $BFFB, et placer en $6297 et $627C des instructions de 
déroutement vers les nouvelles routines. 


Ces dernières ne deviendront donc actives qu'après exécution de ce sous- 
programme d'initialisation (par EXEC), dont le listing est le suivant: 


EDt1 CC BE31 LOC #SEE 1 Trait. des opérandes 
ÉLetd FD 62rL STD $SécrL 

BDE7 LE 37 LCE #$2T Recherche d'1 var. 
BDUS FD 6:38 ST ÉTEREE ES) 

EDEL 3ë TE LDA #$7E Code de JMP 
BCE E7 ETC STA S627C 

ED1i B7 297 STA C'TSySe rit 

ED14 CC SBÿ1 LEE: #$=:B41 Première adresse 
BD17 23 1E SUEC $iE Début zone des var. 
ED15 FC: BFFE STC $SEFFE Déplacement des var 
&DiC 539 ETS 


I. Compilation d’une adresse 


1. Action de la routine 


Notre routine remplace dans le programme lui-même le nom de la variable 
cherchée par l'adresse y—y+d (si cette adresse est compilable), y étant 
l'adresse dans la zone des variables du premier octet précédant le nom; cet 
octet contient en effet le type de la variable et le nombre de caractères du 
nom diminué de 1 (voir 2° partie). 


Lorsque la routine est appelée pour une adresse y déjà compilée (lors 
d'une exécution antérieure de la même instruction), il y a calcul de 
l'adresse y—y —d pointant sur le premier octet; d'où la détermination du 
type, envoyé en $6105, et de l'adresse du premier octet de la valeur, 
placée en $613D et dans le registre X; on constate donc qu'il n'y a plus 
aucune recherche de la variable, d'où bien sûr accroissement de la rapidité. 


I! faut noter que notre routine créé toujours les variables non encore exis- 
tantes en mémoire, même écrites dans un calcul d'expression (ceci car on 
n'a alors plus la valeur &H803 située au sommet de la pile, mais seulement 
‘un cran en dessous” : voir $AA2) : ceci pourrait provoquer une erreur dans 
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le cas de l'affectation de la valeur d'une expression à un 
tableau; ce cas est donc détecté, et l'adresse de l'élément 
(rangée en $613F par le début du traitement de l'affectation) cot 
en conséquence. 


Enfin, il ne peut y avoir compilation en cas d'utilisation d'un élému 
tableau, l'indice pouvant être une variable, prenant donc différentes v& 
correspondant à des adresses différentes. 


2. La routine 


Elle utilise un sous-programme effectuant la compilation, placé avant la 
routine proprement dite ; le registre X contenant une valeur y et l’accumula- 
teur D un déplacement d, ce sous-programme place si celà est possible (au 
moins deux octets disponibles, et pas de &H9,22, etc. dans la valeur à 
ranger) la valeur y+d à l'adresse a contenue dans le registre Y: les octets 
disponibles éventuels (si le nom de la variable comporte plus de deux 
caractères) situés en a+2, a+3, etc, sont remplacées par le caractère 
espace” (celui-ci étant ignoré par l'interpréteur: voir $61B8). 


Le sous-programme est le suivant: 


BEBC 31 £'2 LERY 2,%Y Au moins 2 octets 
ÉE6E 1892 69 CHFT  $BS Ÿ sont-ils ? 

BE71 22 10 EH] $SBE:A Non—pas de compil 
BE73 33 86 LEAU D.# y -y+d-U 

BE?S 1F 38 TFR J,D y A etB 

BE 77 SC INCE A-ton FF? 

BE7A 27 16 BEG $EE3S Oui=pas de compil 
BE7A SA CECB A-ton @? 

BE7E 27 13 BEC $BE30 Oui=pas de compil 
BEFD C1 £2 CMPFB 4622 

BE?7F £r 6F BEG $EES9 Pas de compilation 
BES1 Ci 34 CHFB  #$S3A 

BE83 2r GE BEG $SBESO Pas de compilation 
BES8S C1 49 CMFB  #S39 

BE8?7 27 D7 BE SBESO Pas de compilation 
EERS EF 3E STU 2% Rangement y’ 
BESB 149C B3 CMFY  #BS Plus de 2 caract.? 
BEBE 26 ai BNE $BE31 Oui-les effacer 
BE939 39 RTS 

EE 31 Cé 24 LDE #$:9 Code de espace’ 
EES: Er 4 STE > Ÿ+ 

ÉESS za F4 BEA $SEESB Boucle 
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Lé routine proprement iiite est la suivante: 


É € 

[ETS 
BEC 
ÉE 

BEF 
BER:5 
BEHS 
EER; 
ÉEH: 
ÉFHE 
EE ARC: 
ÉERF 
ÉEE 1 
FEES 
ÉEEr 
EEBS 
BEBE 
BEED 
BEA 
BEC2 
BEC4 
FECr 
EEL2 
EECB 
BELL 
BECF 
BELLE 
BEL4 
ÉELE 
BEL 
BELA 
ÉELC 
BEDF 
BEEZ 
BEE 
BEE4 
ÉÉES 
ÉEET 
BEES 
EEE 
ÉEEL 
ÉEEE 
BEEF 
BEFA 
BEF1 
BEF3 
GEFS 
BEF? 
BEF 
BEFB 


1U3E 
2£ 


EE 
ÊS 
SH 
H 
E1HEIH 


= 
es 


Lid 
ES 
E3 


D EC D'ici 


LCY 
LEAS 
CFA 
EHI 
JSF: 
CHFA 


BLS 
JSF: 
EFA 
FSHS 
JSF 
LED 
SUEL 
ACDC 
STC 
ECC 
INC 
SUBE 
SECA 
EFH 
LD 
STY 
LOD 
COMHA 
HEGE 
BHE 
IHCA 
LER* 
LEE 
TFF 
LSRA 
L'SFHA 
LSFR 
LSRA 
STAR 
ANCB 
LERX 
SR 
ST 
RTS 


$B3 
EE 
#65 
$BELH 
$SAAGR 
#$25 
$BERE 
$EZ 
$E3 
A, E 
$ES 
H$2£ 
$SBEBE 
SAS 
$2E 
$3F 
$SBECZ 
$SAASZ 
SBECF 
U 
$AASEZ 


$05 
#SCF 
B,# 
$EZ 
$3L 


Adr 1°’caract. nom 
Dépile retour $6297 
Code de ‘Z” 
Adr.déjà compilée 
Lit nom de la var. 
Atonl!,#,$ ou #7? 
Non 
Caract.suivant-A 
Replace aprés nom 


Code de ‘{” 
Variable simple 
Élément de tableau 
Début zone tableaux 


Affectation à 1 tabl. 
Aucun tableau 
Compilation 
Contenu $2@-pile 
Traite variable 

A peut être bouge 
Ancien $20 


Adr.elt.tab.corrigée 
Valeur déplacement 
Nbr.caract.du nom 


Cas d'une retenue 
Compilation et RTS 
Adr.y compilèe-X 
Après adresse 
Valeur deplacement 
Changement signe 


d-D 
y -d-X 
1° octet var +B 
… et-A 


Type variable 


Nbr.caract. — 1 
Adresse valeur—X 
Saute les espaces 


REMARQUE: Si on compilait l'adresse (déplacée toujours) du pré, 
de la valeur, et non celle de l'octet précédant le nom, il faudrait ! 
3° octet pour le type de la variable. 


Ceci simplifierait la routine, mais obligerait à prévoir lors de l’écr. 
programme BASIC à compiler 3 octets pour chaque variable, au lier 
seulement, d'où une contrainte que nous avons préféré éviter. 


HI. Modification du traitement des opérandes 


1. Le principe 


On a vu dans la deuxième partie que les opérandes d'une expression sont 
traités par la routine $770: il faut donc obligatoirement modifier cette 
dernière pour que la rencontre d'une adresse déjà compilée (1° octet entre 
&H5B et 7F) provoque le branchement en $800, où il y aura appel de $A48 
et donc de notre routine de traitement d'une adresse. 


La routine donnée ci-après compile aussi les constantes entières, en 
remplacant la valeur initiale (codée en ASCII chiffre par chiffre) par la 
valeur binaire, déplacée de &H191, codée sur 2 octets. 


Le déplacement de &H1@1 permet de compiler toutes les constantes 
comprises entre &HOQ et &HIEFD, c'est-à-dire toutes les valeurs infé- 
rieures ou égales à 7933: le premier octet doit en effet être inférieur à 
&H29, sous peine d'être confondu avec un espace et donc ignoré. 


Pour les constantes entières négatives, c'est la valeur absolue qui est 
compilée, d'où encore un premier octet compris entre &H@1 (@ ne serait 
pas compilé) et 1F. 


Enfin, une constante ne sera compilée que si elle occupe deux caractères 
au moins, où bien sûr un caractère seulement suivi d'un espace (dans 
certains cas, l'espace peut aussi être situé avant le chiffre). 


2. La routine 


Elle traite les constantes numériques à compiler (1° octet compris entre 
&H39 et &H39) ou déjà compilées (1°" octet inférieur à &H20), et branche 
en $800 ou en $785 selon que l'on a une variable (déjà compilée ou non), 
ou bien une fonction ou un caractère spécial (&.,',—, NOT, etc..}. 
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Le listing est l? suivant: 


BE31 ne 62 LEAS 2,5 Dépile retour $627C 
BE33 SE B9 LDX $E9 Avant 1” caract. 
BE35 30 B2 JSR $B2 Code 1°” caract -A 
BE37 41 81 LERTY 1,% Sur 1°’ caract. 
BE33 £ 14 BHS $SBE4F Pas chiffre 

BE3E Eù 677E JSR $a7°B Valeur Cte-AC flot 
EE3E 30 CD JSR $sCD Type constante ? 
BE4G £2R 87 BPL sBE 49 r2—pas de compil 
BE 44 8C 1EFD CMPX  #6S1EFL 

BE47 23 ai BLS $SBE4A Valeur compilable 
BE4S 39 RTS 

BE 44 CC 2191 LDD #sa1gi Valeur déplacement 
BE4D 29  1D BRA $BE6C ne 
BE4F 81 1F CHPA  #G1F 

BES1 22 6B BHI SOHESE 

BES3 EC h1 LOD > Y++ Cte déjà compilée 
BES5S 83 @161 SUBD #sm101 Correction 

BESE 143F B9 STY $B3 Positionne après Cte 
BESE TE GC59 JF sucs9 D+$57:#2-$05.RTS 
BESE gi 41 CMP  4#$41 Code de ‘A 
BE6ER 25 a? BLOC SBECS Caractère special 
BE62 81 8 CMPA  #$80 

BE64 24 83 BHS $SBES9 Fonction ou - NOT 
BEEË ?E 0864 JF $02Q0 Var (compil ou non 
BE6S ?E 4735 JMF 50785 Autre 


REMARQUE : Le branchement au sous-programme de compilation suppose 
que ce dernier est placé juste après la routine. 


IV. Mise en œuvre-résultats 


1. Implantation-utilisation 


Le sous-programme d'initialisation et les deux routines précédentes seront 
implantées en mémoire par le programme de création de la troisième 
partie. 
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Tous les branchements pointant dans les routines elles-mêmes 
tifs, on pourra bien sûr comme toujours choisir une adresse d'imp. 
quelconque : si on prend par exemple $BE31, on ajoutera au progra 
création les lignes suivantes: 


1898 DATA Init. &HBD91,CC,BE,31,...,39,FIN 
2899 DATA Trait. opérandes,&HBE31,32,..,24,F4,FIN 
2998 DATA Rech. Variable,&HBE97,199E,...,39,FIN 


On trouvera au dernier chapitre la liste complète des DATA, avec le résultat 
de l'exécution du programme de création. 


Bien entendu, on enregistrera après exécution les routines sur bande. 


On pourra ensuite ajouter en tête de n'importe quel programme qui tourne : 


19 CLEAR,&HBDS#@:LOADM:EXEC &HBDS#1 


Toutes les constantes et variables du programme comportant au moins 
deux caractères, ou un seul suivi d'un espace, seront alors automatique- 
ment compilées au fur et à mesure de l'exécution, ceci quelque soit la 
manière dont elles sont employées (par exemple dans un calcul, ou une 
instruction comme LOCATE,BOX.IF,etc.., ou comme indice de tableau, 
etc…..). 


Le résultat sera, selon les programmes, un accroissement de l'ordre de 
60% à 80% de la rapidité d'exécution; l'accroissement sera d'ailleurs 
d'autant plus grand que le programme utilise un nombre plus élevé de 
variables différentes, c'est-à-dire que le gain croît avec la complexité du 
programme. 


2. Exemple 


Soit le petit programme suivant : 


19 CLERF,EHBDYB:EXEC &HBDG1 

29 À =11:BBBBzA +57:A5A + 

39 FÜR I=£H6€0B TO &H6626 

46 FRINT USING"X %":HEXSCFEEKC I 235 :NEXT 
56 FRINT:FRINT "A,BEBB =": A; BBEB 
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Après lecture en mode direct des routines, l'exécution permet d'obtenir le 
contenu de la ligne 29 après compilation: on a: 


66 £r & 14 SB 1 D4 1 ( 3h 5B 2 29 29 
D4 55 1 C? 35 37 3H 41 Dé 5E 1 


A.BBEB = 22 68 


On constate que la variable À est compilée (adresse déplacée égale à 
$5B91 comme prévu) seulement si elle est suivie d'un espace; les deux 
derniers caractères de la variable BBBB sont remplacés par des espaces 
(code &H20). 


La constante 11 est compilée (valeur &H1@1+11—&H1@C), mais pas la 
constante 57: elle devrait en effet être remplacée par la valeur &H13A, 
rejetée à cause du &H3A dans le second octet. 


3. Quelques remarques 


1. Après exécution du sous-programme d'initialisation, nos routines reste- 
ront bien sûr actives, même après un NEW éventuel; pour revenir à un 
fonctionnement normal, il faudra faire simplement: 


POKE &H6297,&H39:POKE &H627C,&H39 


La touche ‘’Initialisation"” ne provoque en effet pas la réinitialisation de la 
RAM, effectuée seulement à la mise sous tension du TO7. 


2. Un programme compilé ne pourra être redémarré après l'arrêt normal 
que par GOTO a, a étant le numéro de la première ligne ; un RUN ‘efface- 
rait ”’ (en fait, RUN réinitialise entre autres les pointeurs contenus en $6129 
et $6122 avec l'adresse de fin du programme) en effet la zone des 
variables, qui ne pourraient pas être recréées à partir des adresses. 


Pour la même raison, on ne peut pas modifier un programme déjà compilé. 


3. Il est parfaitement possible de combiner nos routines de compilation 
avec les nouvelles fonctions et instructions de la 3° partie. 


Dans le cas des procédures, et pour des raisons évidentes, la récursivité ne 
marchera cependant plus: il suffira pour l'autoriser quand même de faire un 
simple POKE&H6297,&H39 dans le programme principal avant l'appel par 
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CALL de la procédure récursive: on écrira bien sûr POKE &H62 
juste après le même CALL pour reprendre la compilation au ret 
procédure. 


On notera que ceci permet de compiler quand même les constantes , 
branchements: voir chapitre suivant) dans la procédure elle-même, d'ot 
certain accroissement de la vitesse d'exécution de cette dernière. 


4. Enfin, il ne faudra pas s'étonner d'obtenir des résultats bizarres en 
listant un programme compilé !.. 


V. Le problème des tableaux 


Il'est à priori possible, et souhaitable, de pouvoir compiler non plus seule- 
ment les adresses de variables, mais aussi celles des tableaux éventuels 
utilisés par un programme. 


Malheureusement, on a vu que toute la zone des tableaux est déplacée à 
chaque création d'une nouvelle variable, problème n'existant pas avec ces 
dernières. 


On a vu de plus qu'il n'est pas possible de compiler les adresses des 
éléments d'un tableau, au moins dans le cas où un des indices est une 
variable. 


On ne peut donc finalement compiler que l'adresse du nom d'un tableau, et 
uniquement dans le cas où toutes les variables auront été créées avant la 
compilation de cette adresse. 


On constate donc que ceci constitue une contrainte à respecter lors de 
l'écriture du programme (remarquons quand même que cette contrainte 
existe dans tous les langages structurés...) pour un bénéfice relativement 
réduit, ceci d'autant plus que le nombre de tableaux différents utilisés par 
un programme est en général petit, d'où une recherche dans la zone des 
tableaux très ‘apide de toute facon. 


IL est cependant possible de modifier les routines précédentes pour traiter 
aussi les tableaux: en particulier, il faudra appeler la routine $A52 avec la 
valeur 1 placée en $6107 (il y a alors recherche du seul nom du tableau), le 
cas de DIM étant à traiter à part (on a alors $61@4 différent de @: voir 
$AŸ1) pour permettre la création du tableau. 
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On calculera ensuite les valeurs des indices, que l'on empilera dans la 
pile S: il faudra de plus ranger dans la 2° pile U (créée par exemple en 
$BFFA) l'adresse de l'en-tête et pour chaque indice le contenu des 
mémoires $6104 et $6105, ceci pour le cas où un des indices est lui- 
même élément d'un autre tableau, chose à priori possible t 


L'adresse de l'élément sera ensuite trouvée par un JMP $BE9 (voir 
2® partie) 
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4 


Compilation des 
adresses de 
branchement 


Chaque fois que l'interpréteur rencontre Un branchement (GOTO), 
GOSUB,ON), il y a calcul de l'étiquette (routine $6FD : voir 2© partie}, puis 
recherche dans le programme lui-même de la ligne correspondante (routine 
$44A0). 


Nous présentons une méthode permettant de remplacer automatiquement 
l'étiquette de branchement par l'adresse effective (déplacée) du début de la 
ligne correspondante. 


Le résultat est bien sûr un nouvel accroissement de la vitesse d'exécution 
d'un programme. 

I. La méthode 
1. Principe 


Il est ici moins immédiat d'intervenir sur les routines de traitement des 
branchements, puisque celles-ci ne comportent aucun passage par la RAM 
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(à part fa routine $61B2, non modifiable en pratique car on ralentirait forcé- 
meht le traitemunt de tous les caractères du programme, d'où un résultat 
inverse de celui recherché !). 


On est donc obligé d'intervenir au niveau du décodage des instructions 
d'un programme. 


On a vu en effet qu'à chaque code d'instruction rencontré par l'interpréteur, 
il y a passage en $6270 (voir routine $2B25), où l'on pourra dérouter le 
BASIC vers une routine testant si l'on a un code correspondant à 
GO(&H87) ou à ON(&H96), que l'on pourra alors traiter. 


2. Précautions à observer 


Les adresses effectives de branchement peuvent être à priori comprises en 
$65F4 (adresse du $ précédant la 1%" ligne du programme) et $SBFFF 
(valeur jamais atteinte en fait, Un programme comportant toujours des 
variables !} pour le TO7. ou $SDFFF (même remarque) pour le TO7-70. 


Il est parfaitement possible ic1 de placer dans le programme une valeur 
supérieure ou égale à &H80, l'interpréteur attendant en effet toujours une 
étiquette après un GOTO ou GOSUB ; il n'y a donc pas de risque de confu- 
Sion avec une instruction. 


Par contre, on ne peut toujours pas placer les valeurs &H9,22,3A.,89 ou FF 
dans le programme, ainsi que les valeurs &H8F ou C4 suivies de 
&H81,82,AF ou BQ. 


y étant l'adresse effective du branchement à la ligne k, c'est-à-dire 
l'adresse du @ précédent la ligne, on implantera donc en fait l'adresse 
y=y+&H2A0D. 


Dans le cas du TO7 avec extension mémoire, on obtient en effet ainsi un 
premier octet compris entre &H9@ et E9: il faudra donc tester seulement si 
on à &HC4 (l'adresse effective commence alors par &H9A), auquel cas on 
ne compilera pas l'adresse. 


Comme au chapitre précédent, il n'y aura pas non plus compilation si le 
2° octet est égal à &HO,22,3A,89 ou FF, ou si l'étiquette k ne 
comporte qu'un chiffre non suivi d'un espace. 


La compilation elle-même sera donc toujours effectuée par le sous- 
programme du chapitre précédent. 


172 


REMARQUE : cas du TO7-70: 


Le déplacement de &H2A@D permet de compiler toutes les adré 
branchement inférieures ou égales à $D4F1 (au delà, on obtient un 
non compilable), ce qui correspond à un programme d'environ 28K-oc. 


Si l'on désire compiler des programmes encore plus importants, il suffira de 
prendre un déplacement de &HD5@D, qui correspond à soustraire 
&H2AF3 de l'adresse; on obtient des adresses déplacées démarrant à 
$3B01, d'où la compilation possible de programmes de plus de 49K- 
octets. 


On devra alors bien sûr tester si le premier octet est égal à &H89 ou 8F ou 
C4, auquel cas on ne compilera pas l'adresse. 


3. Initialisation 


Il suffit d'ajouter dans le sous-programme d'initialisation du chapitre précé- 
dent les instructions implantant un JMP $BDB8 en $6276Q. 


L'adresse $BDB8 peut bien sûr être modifiée à volonté: nous l'avons 
choisie pour que les routines données ci-après soient placées juste avant la 
routine de traitement des opérandes, ceci à cause des branchements rela- 
tifs au sous-programme de compilation. 


I. Traitement des instructions GOTO et GOSUB 


Notre traitement est bien sûr calqué sur le traitement ‘’normal”, situé en 
$696 (voir 2° partie). 


Lorsque l'interpréteur rencontre un GOTO où GOSUB suivi d'un chiffre (C 
est alors positionné à 1 par $B2), l'adresse effective est calculée par la 
routine $629, puis déplacée de la valeur &H2A@D et rangée dans le 
programme. 


Si on n'a pas un chiffre, c'est que l'étiquette k a déjà été compilée; on 
retranche alors simplement le déplacement. 
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La routine, implantée ici en $BDF4, est la suivante: 


BCF 4 
EDLFéE 
BOFE 
BCFRA 
EDF1 
BCFE 
BEnG 
BEG2 
BEG4 
BEQ7 
BEG9 
BE6B 
BEOC: 
BE10 
BE12 
BE 14 
BEi7 
BE19 
BE 16 
BEC 
BE1F 
BEZ1 
BE24 
BEZÉ 
BEZES 
BEZS 
BEZB 
BE2E 
BE30 


REMARQUE: Le branchement au sous-programme de compilation suppose 


LEAS 
JSF: 
LOU 
CHF'A 
BNE 
LDX 
FSHS 
BSR 
MF 
JSF: 
LEAY 
BHS 
JSK 
LDU 
FSHS 
JSR 
FULS 
STU 
TFR 
CMFA 
BEG 
LOD 
ESR 
ST# 
RTS 
LOC 
SUBD 
STD 
RTS 


2:S 
$Bz 
$B9 
#sEC 
$BEGT 
s2c 
A,#. 1 
$EEQT 
$ZREL 
$Bz 


#S2RAOD 
$RS 


que la routine est placée juste avant celui-ci. 


II. Traitement de l'instruction ON 


Le traitement normal” est effectué en $36B5, où on ira en cas d'instruc- 


tion ON ERROR ou ON PEN. 


L'instruction ‘ON expression” suivie de GOTO ou GOSUB est par contre 
traitée par la routine suivante ; on constatera qu'elle fait bien sûr appel au 


traitement de GOTO et GOSUB vu ci-dessus. 
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Dépile retour $6270 
Octet après GO-A 
Adr.car.courant-+U 
Code de SUB 

Traite TO 

N° ligne courante-X 


Branchement ligne k 
Boucle d'exécution 
1°" caract.étiquette 
Adresse -+Y 
C--0—déjà compilé 
Calcul de k 
Adr.caract.après k 
Empilement 

Trouve adr.effective 


Restaure $B9 
Adr.ligne k-D 
Donnerait C4 
Pas de compilation 
Valeur déplacement 
SP. de compilation 
Car.cour.sur déb. k 


Adresse compilée+D 
Correction 
Car.cour.sur déb.k 


Le listing est le suivant: 


BDES 27 68 BEQ $BDCC2 Si 3A en th 

BDBA 81 87 CHFA #S87 Code de GO 

BCBC 27 36 BEG $ELF 4 GOTO,GOSUB 
BDBE 51 96 CMFA #86 Code de ON 

BDCG 27 gi BEQ SBDC3 

BDCZ 33 RTS Autre inst.=>$2B2B 
EDC3 32 62 LERS 2,5 Dépile retour $6270 
EDCS 3 82 JSF: $B2 Caract. après ON 
BCC7 81 EE CHPA  #$BS Code de PEN 
BDC9 27 ä4 BE SBCCF 

BLCR 51 938 CFA  #$938 Code de ERROR 
BLCC 26 43 EME SBLDZ On a une expression 
BCCF E 36B5 UMP $36E5S Traitement “normal” 
BCD2 BD GEBS JSR $SOEBS Valeur exp.-$5B 
BDDS C6 87 LDB #557 Code de GO 

BCD? 3D CG JSF: $DO A-ton GO? 

BDDS 34 G£ FSHS A Empile TO ou SUB 
BLCE A 58 DEC $5S 

BDCC: 26 hd BHE $SBCEZ Pas bonne adresse 
BCCF 35 GZ PULS À TO ou SUB 

BCE 1 26 15 BRA $SECDFS Effectue branchement 
BLEZ 9D B2 JSF: $SBZ 1°’ caract.étiquette 
BCES 25 Gé BLO $BDED Chiffre>pas compilé 
BDE? ac B2 JSF $B2 Aûr. déjà compilée 
BDES 3C B2 JSR $Bz On saute l'adresse 
ECEE 24 G3 EFA $ECF A 

EC'EL BC: DEF JEP $S96F CL Saute l'étiquette 
BLFA 26 ES BHE $SBLCC'B Étiquette suivante 
BDFZ 45 82z FULS A,FC Instruction suivante 


REMARQUE: On notera au début de la routine (adresse $BDB8 correspon- 
dant à celle implantée en $6271 lors de l'initialisation) le branchement au 
traitement de GOTO et GOSUB. ou bien à celui de ON. 


On remarquera aussi qu'une étiquette n'est compilée que lorsqu'il y a 
effectivement branchement à la ligne correspondante. 
Mise en œuvre — exemple 


Toutes les routines précédentes seront toujours créées par le même 
programme de création, puis enregistrées sur bande par SAVEM. 
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On veillera à placer les unes à la suite des autres la routine traitant les 
branchements, puis celle traitant les opérandes (le sous-programme de 
compilation étant placé en tête de celle-ci) et enfin celle traitant les 
variables 


On trouvera à la fin de cette 4*partie la liste de tous les DATA 
correspondants 


Après exécution du sous-programme d'initialisation, il y aura donc compila- 
tion automatique de toutes les adresses de branchement, au fur et à 
mesure de l'exécution. 


On notera toutefois que seuls ON, GOTO et GOSUB sont traités par nos 
routines ; une étiquette placée dans une instruction IF après un THEN ou un 
ELSE ne sera donc pas compilée ; si on écrit par contre GOTO k au lieu de 
THEN k, et ELSE GOTO k au lieu de ELSE k, il y aura bien compilation. 


Exemple : 


16 CLERR, &HBDGG: LOHDM:EXEC EHBDS1 

26 GÜSUB 26 

23 ON AA GÜTO 5@,36,S58 

26 AA=2: RETURN 

30 FOR 1=6H660E TO 8&H6637 

40 PRINTUSIHG"X  X":HEXS<PFEEKC I 22; : NEXT 


Ce programme, dont on ne s'’inspirera pas vu l'imbrication des branche- 
ments... écrit le contenu des lignes 29 à 26 après leur exécution. 


On obtient: 


66 18 6 14 67 BC 98 33 ZG 6 66 2 & 17 
36 28 SB 1! z6 8687 BB 26 %5 34 2C 96 44 2C 
35 36 0 66 38 14 SB 1 D4 32 354 8B 6 


On constate à la ligne 2Q que l'étiquette 26 est remplacée par la valeur 
&H9039-&H662C+8&H2A0D, $662C étant en effet l'adresse du @ précé- 
dant la ligne 26. 


A la ligne 23, l'étiquette 30 est bien compilée par la valeur 
&H9044-8&H6637 +&H2A0D: les deux étiquettes 59 ne sont par contre 
pas compilées puisqu'elles ne sont pas utilisées. 


La variable AA est bien sûr compilée, ainsi que la variable | de la ligne 36. 
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5 


Application à 
d’autres ordinateurs 


Toutes les routines précédentes sont évidemment spécifiques à l'interpré- 
teur des deux TO7. 


La méthode présentée, consistant en une compilation interactive de 
certaines adresses et constantes, est par contre très générale et peut être 
appliquée à n'importe quel ordinateur. 


I. Cas où il existe des vecteurs en mémoire vive 


Ce cas est heureusement le plus fréquent: il permet comme nous l'avons 
vu d'intervenir très facilement sur le fonctionnement de l'interpréteur. 


Pour mettre notre méthode en œuvre, il faudra toujours étudier soigneuse- 
ment les routines de l'interpréteur permettant ‘d'explorer le programme. 


On trouvera facilement l'emplacement de la routine cherchant la fin d'une 
instruction en observant le traitement des instructions ‘non exécutables” 
comme REM ou DATA, ou bien sûr en étudiant les instructions qui l'utili- 
sent comme ÎF ou GOTO. 
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Cette routine existe sur tous les interpréteurs, et on trouvera très probable- 
ment dans le cas d’un ordinateur utilisant le code ASCII qu'elle traite les 
mêmes valeurs que pour les TO7, c'est-à-dire &HQ (fin de ligne), 22(guille- 
mets), 3A {fin d'instruction) : les valeurs &H89 (IF, ceci pour le cas des IF 
imbriqués permis par les TO7) et FF (fonctions, codées sur 2 octets) ne 
seront peut être par contre pas traitées, ou seront différentes. 


Rappelons que toutes les valeurs traitées par cette routine ne pourront pas 
être implantées dans un programme. 


L'étude de l'instruction FOR (et WHILE lorsqu'elle existe) permettra ensuite 
de trouver la routine cherchant le NEXT (ou WEND) associé au FOR: on 
trouvera donc là aussi certaines valeurs à ne pas implanter dans un 
programme. 


On en déduira, en fonction de la carte mémoire de l'ordinateur considéré, 
les déplacements à effectuer pour compiler les constantes, les adresses de 
variables et celles des branchements: on devra d’ailleurs éventuellement 
ne compiler que les adresses conduisant à des valeurs comprises dans un 
certain intervalle, ce qui ne diminue pas l'intérêt de la méthode. 


I. Cas où le BASIC est entièrement figé en ROM 


Rappelons que les instructions de branchement des TO7 ne comportent 
aucun passage par la RAM, ce qui ne nous a pas empêché d'intervenir sur 
leur fonctionnement; il suffit en effet de décoder les instructions corres- 
pondantes, d'où un déroutement vers les nouvelles routines, écrites à partir 
de celles de l'interpréteur. 


On fera donc de même s'il existe qu'un seul vecteur en RAM, situé dans la 
boucle d'exécution des programmes ou dans la routine de traitement des 
instructions. 


Il ne sera pas beaucoup plus difficile d'intervenir sur un BASIC ne compor- 
tant même pas celà. 


Il suffira en effet d'écrire alors sa propre boucle d'exécution des 
programmes (voir 2° partie), toujours en ‘recopiant” celle de l'interpréteur. 


En tête du programme BASIC à faire exécuter, on placera donc un simple 
EXEC (ou USR) vers la routine ; toute l'exécution du programme sera alors 
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contrôlée par cette dernière, ce qui permet bien sûr toutes les intes 
désirées. 


On observera toutefois que le traitement de certaines instru 
(GOSUB.NEXT.IF) se termine non pas par un simple RTS (provoque 
retour à la routine), mais par un saut à la boucle d'exécution : 
programmes ‘normale ”, d'où reprise du contrôle par l'interpréteur. 


Il faudra donc faire traiter ces instructions par ses propres routines, à écrire 
encore en recopiant celles d'origine. 
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6 


Résumé de la 
quatrième partie 


Nous donnons ci-après la liste complète des DATA à écrire pour les TO7 et 
TO7-70 dans le programme de création de la troisième partie, en vue de 
permettre la compilation automatique des adresses utilisées par un 
programme BASIC. 


Les routines correspondantes (ici de $BDQ1 à $BEFB) seront bien sûr enre- 
gistrées en binaire par SAVEM. 


Un simple CLEAR, &HBD@GG:LOADM:EXEC &HBD91 ajouté en tête de 
n'importe quel programme aura alors pour résultat de pratiquement 
doubler la vitesse d'exécution de celui-ci. 


Rappelons aussi que les DATA donnés ci-après peuvent être combinés 
avec ceux de la troisième partie; on bénéficiera alors en même temps de 
toutes les instructions supplémentaires et de l'accroissement de la rapidité 
d'exécution. 


180 


Le listing des DATA est le suivant: 


1625. serres Initialisation............ 

15604 CATR Initialisation, 2HRDY1,CC,BDRS,FD,6271,Cu 
:FD.é2rD0.06,97,FD0,6298,86.7E.E67,62F4.E7,€e27C.B7.62£ 
-SB1 , 33 :1E,FL,EFFE,33,FIH Init. 

1:55 

1325 ‘Foutines 

sen CATH Eranchements, ÉHEDBS.27,8,81,87,27,36.61.96,27 
RPSLIE 32, 62 .30,E67.81, ES, 2 54:51:98; 26, 3, CE: 36B5 :ED.EBS, 
Césr, 30,0W,34,2.A, 58,26, 4,35,2, 60, 15,9, ÉZ,25,6,90,B2, 


Q0.62,24.3,E60,6FL:,26, E3,2:5,82 

214 CATR 32,62,93b0,6£%,DE.83,81.E60. :26: 3, 9E, 2C.:34,52,80,3 
EE, ZAEL 

2726 DATA 30.62.31, 41,24,10.B0,E6FL0,DE.E3.::4,46,EL,629,3 
5,4. CF.E3.1F.,1H,61,34,27,5, CC. £HAD. SL. 46.,9F.89.3S,EC. A 
4.83.2480,00,83,53,FIH Branchements 

“64 CATA Trait.cPerandes,£MHBEZ1,32.62.93E.69.9C0,E8Z7,31, L 
.24.14.60, 776.30, CC, 24,7,9E,57.8C.1EF0.23,1,39,CC, 181. 
10. 61.1F.22,B:EC,41,:83,161.14SF.E8 -FE.CS3,61. 41:25,7 
EL... 24,3, rE,604.7E,78s 


2218 DATA 31,22, 1090,69,22,10,33,86,1F,34.5C.26,16.:54.2 
F.13.01,22.27,F,C1:34,27. 801,849, 27, EF, SE: 199C,E63,26, 


1,39.L6, 2h: EF HG. 24, F4. FIH Sous-Pr 9 

Eté CATH po bee LHEES7. 1ASE,B9.22,62,861,5A. 2%: 

ZA, EC, AG, 51.25. ,4.930.E82,9F.B3.1F,83.30.62, 01. 28,263 
TE HSE. LE. 2h, 1133 as BC. AS. {4.0 
20,42.EË1:03.3F.00.3F.FIL.EFFE.C, 30. DOM, 30,2: 
2319 CATA HE.R1.143F.63.FC,EBFFE. a 5A.26:1. 
B1,1F.38,44,44,44,d44,97,5,C4.F, :9.85.9C0.ÈÉS 
Fech. 

CASA CHTH FIH des routinesz 


. it 


Lb : Sz 


Résultat de l'exécution 


FOUITIHE Initialisation 
Debut :BC41 Fin:BDZS Somme  SSIr 


FOUTIHE Eranchementzs 
Debut : ELBZ Fin EE35 Somme: 12352 


FOUTIHE Trait. oFerandez 
Debut :BE31 Fin EE26 Somme: BÉTE 
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ROUTINE Fech.wvariables 
Leknt EE37 Fin:BEFE Somme: 19513 


Imflantation terminee... 
Enrezizstrer de BCG1 23 BEFB Par SHVEH; 


REMARQUE : Pour le TO7 de base, les adresses seront bien sûr choisies à 
partir de $7D01 


On pourra par contre choisir $SDD@1 pour le TO7-76. 


Enfin, la routine suivante, à implanter n'importe où (par exemple dans les 
DATA eux-mêmes), permet d'utiliser le clavier exactement comme les 
manettes de jeu: 2 joueurs jouant simultanément, déplacements en diago- 
nale possibles (voir remarque du chapitre 1 pour le TO7-7@: remplacer les 
2 valeurs soulignées par @7 et 7A): 


2666 CATA BL,Z4,03,8é6,"E,B7,E7,09,CC,2,B,8E,0,0,0.58,276 
,8:8D,32,8D,30,E6D,2E,74,16,4f,06,7,80,27,00,29,6.60,22: 
36,8,8D,23,06,5,8C,0,9,26,2,30,18,6D,13.1F,1W,54,24,1,5 
9,01:8,23,1,5F,0D0,57,86,2,8E,61,55, 39 

201% DATA 1A,1,79,E7,C9,04,2,865,E7,C8,26,2,30,85,39,FIN 
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Annexe 1 


Routines du moniteur 


Adresse Action 


Initialisation de l'affichage 


Affichage du caractère contenu dans B: 
gestion des attributs d'écran 


Lecture du clavier (code touche retourné 
dans B) 


Lecture rapide du clavier (bit C du CC mis à 1 
si une touche est enfoncée) 


Tracé du segment de droite d'extrémité (X,Y) 
Affichage du point de coordonnées (X.Y]) 
Gestion de l'interface de communication 
Entrée/sortie sur cassette 


Lecture du crayon optique (retourne coordon- 
nées dans X et Y, avec bit C du CC mis à @) 
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Action 


Lecture bouton du crayon optique (bit C du CC 
mis à 1 si enfoncé) 


Génération de la note de musique contenue 
dans B 


Lecture de la couleur du point {X,Y) (retournée 
dans B) 


Lecture du caractère situé en (X,Y) (1 à 40,0 
à 24; code ASCII retourné dans B) 


Lecture de la manette de jeu dont numéro 
dans À (direction retournée dans B: bit C du 
CC mis à 1 si bouton enfoncé) 


Entrée/sortie sur disquette 
Retour au menu principal (par JMP) 


Sortie (par JMP]) d'un programme 
d'interruption 


Écriture du point caractère” de coordonnées 
X et Y (1 à 40, O à 24) 


REMARQUE : AÀ,B,CC, X et Y désignent les registres du 6BO9. 
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Annexe 2 


Principales adresses 
du moniteur 


1. Page # 
Adresse Nom Rôle 
PRE re dns 
$6919 STATUS bit 7 : semi-graphique : bit 6 : scroll rapide ; 
bit 5 : interruptions utilisateur : bit 4 : graphiques 
sans couleur (T07-70): bit 3: lecture clavier: 
bit 2 : curseur visible ou invisible ; bit @: 
touche clavier déjà lue 
$6927 TIMEPT Pointeur (2 octets) sur traitement des 
interruptions timer utilisateur 
$602D USERAF Pointeur (2 octets) sur générateur de 
caractères utilisateurs 
$602F swl1 Pointeur (2 octets) sur traitement des 
interruptions logicielles (SW/1} 
56038 FORME Code de la couleur pour affichages graphiques 
L (TO7:-8 à+7:107-79:-8 à+15) 
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COLOUR Couleurs courantes ; bits @,1,2 : couleur tond; 
bits 3,4,5 : couleur forme ; bits 6,7 : couleurs 
pastels (TO7-76) 


PLOTX Abscisse (2 octets) du dernier point affiché 


PLOTY Ordonnée (2 octets) du dernier point affiché 


CHDRAW @, ou code ASCII du caractère à afficher (par 
PLOTS, DRAWS où CHPL$) 


STADR Adresse (2 octets) du 1° octet de la fenêtre 
écran 


ENDDR Adresse + 1 (2 octets) du dernier octet de la 
fenêtre 


BUZZ Sémaphore du bip clavier pour TO7-7@ 


PTCLAV Pointeur (2 octets) sur la table de décodage 
du clavier pour TO7-7@ 


PTGENE Pointeur (2 octets) sur le générateur de 
caractères standards pour TO7-7@ 


2. Adresses d’entrées/sorties 


PIA système 6846 :$E7C0 à $E7C7 


$E7C3 (PRC) : registre de données 


bit: commutation mémoire écran ‘’forme” (1) et 
‘couleur’ (f) 


bit 1: interrupteur crayon optique 
bit 2: couleur pastel du tour pour TO7-7ÿ 
bit 3: affichage en minuscules 
bit 4,5,6: couleur du tour 
bit7: lecture cassette 
$E7C6 (TMSB-TLSB) : valeur du timer (2 octets) 
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PIA système 6821: $E7C8 à SE7CB 


$E7C8 (PRA) _ : registre de données du port A; lecture matrice 
$E7C9 (PRB)  : registre de données du portB; écriture matrice 
bits #,1,2: multiplexage clavier pour TO7-74 
bits 3 à 7: sélection banques mémoire pour TO7-78 


PIA jeux 6821 : $E7CC à $SE7CF (manettes de jeu 


Interface de communication 6821 : $E7E9 à $E7E3 


Gate-Array (T07-70) : $E7E4 à $E7E7 
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Annexe 3 


Les instructions 
du 6899 


1. Instructions de branchement 


Adressing 


|_Mode _ 
Relative 


Instruction 


Branch C= 1 
Long Brancn 
C1 
Branch Z=0 . 
Long Brench . 
Z=0 
Branch æ Zero 
Long Branch z Zero . 


Branct Higher 
Long Branch Higher 


Brench Higher 
or Same 
Long Branch Higher | e|elelele 
ot Same 


Branch £ Zero 
Long Branch £ Zero 


+ 
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190 


Instruction 


Ad’essing 


Branch < Zero 
Long Branch< Zero 


Branch Minus 
Long Branch Minus 


Branch Z#0 
Long Branct 
Z+0 
Branch Plus 
Long Brancr Pius 
Branch Always 
Long Branch Always 


Brancr Never 
Long Brancr eve: 


Long Branch ‘0 
Subrourine 

Branch V = 0 

Long Brencr 
VacC 


Branch V= 1 
Long Brancr 
Vs) 


2. Instructions 


Adressing Modes 


ADD ADDA 
ADD8 
ADOOD 


8 
03 63 
e ANCA ë 
ANDB 
Be AAA MERE 
ASU 
si AÉABER 
ASRA 
ASRB 
F BARRE 
Es 
ERARÈABEREREE 


CLRA 
CLAB 
CuR 
CMPA 
CMPB 
CMPD 


| CMPS 
| CMP 


n CMPx 
CMPY 


js fie 


47 
57 


Compare M {rom A 
Compare M from B 
Compare M M + 1 Irom D 


Description 


JE = 
HE IUnsgned) 


AANM-A 
BAM— pre 
sl a 


ÉD 


HEC 


84 ce | A IM À AI 
Ba: Te-' B IM A Br 


Compare M M + 1 “rom S 


Compare M M+° 


Compare M M + 1 from x 
Compare M M + 1 from Y 


CCAIMM-—CC Wa: tor interrupt 


Decimai Adiust À 


PI RX 
A+'-8 
B-1-8 
M + 1—M 
EaÎ— PC 


from L 


2 
Jump 10 Subrouture 
Een 


M—A 
M8 
MM+1-Ù 
MMs+i—sS 


MMæ1—U 
MMel—Xx 
MMel-Y 


EaÏ—s 
EA3- 0 
eAI_ x 
ea 


Op code opération en hexadécimal 
-: nombre de cycles 

# nombre d'octets 

@ flag non affecté (HNZV C) 


1 Gou 1 flag affecté 


+ ladressage indexé}  @ à 8 cycles et @ à 2 octets à ajouter selon le post-octet {voir annexe 4) 
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ressing Modes T7 
mme I Direct | Imdexed_ TL Extended | Inherent_ | 5,3{2/1{0 
imattuction Forme [Gp ‘ # [op] Op Description HINIZIV 
À SA sta æ!2|: A mn GORE 
ste PT ee 
LS 78 M b? 50 ssifrlils 
FAR SRA 4 2 1 s|ojrliett 
LsRe s|2li) 80 TITI jelohilel 
|| 3 b7 bo € lelolile 1 
MOL 1 |AxB—D IUnsgredi [| elsls1l9 
E 1 A+ 1-A GENE 
ViB-1-8 CIRE | vit 
M+1-M 8|1l1,11: 
Nur 1 [No Opera'on e 7. 
Lol] AVM-A el1|lrloie 
IBVM-6 elriilole 
CC VIMM=CC 
PSH [Push Regrsiers on S Siack elelelele 
Pusr_Regrsters or U S'act ele je 
PUL Puit Regrste’s from S Siack lolo. 
Pull Regssrers lrom U Stacx este 
OÙ [A hill 
! 8} espoir 
“ € vb} h eret| Fi 
ROR 11A rie ls 
l : vlrirteli 
€__b7 bo eu ils: 
AT! Ex Return From inlerrupt 7 
1 Returr from Subrouline RERERrET 
s8c A-M-C-A 8frfilsfs 
B-M-C-8B Blelelalt 
1 [Sign Extend B into À Can 
Aa—-M e{11110.e 
B-M elrul:iole 
D-MMe: el1lrlols 
S-MM elrlslots 
U-MMe* e;sl|rjole 
X-MMe I el1]|r]10le 
Y-MMo1 left o|e 
A-M—-A CREER: 
B-M-8 CRERTRIRT 
D-MM+1-D e{ijr{rt 
3F 119! 1 |Sotiware interrupt à eee 
10 | 20 | 2 |Soliware interrupt 2 [ste er 
3F IT 
11120] 1 |Sotiware interrupt 3 colo 
3F 
BEL RBETTTIETT NNNNS CE CE CAC C 
PE AC 2 
Test A th 1° . 
1 [Tes 8 rt (Os 
Test M rit 1 (S21 


Notes 


3: EA est l'adresse effective (‘effective adress”) 

4: 5 cycles pour PSH et PUL. plus 1 cycle pour chaque octel transféré 
5(6): Branchements longs: 6 cycles si branchement effectué, 5 sinon 
6. SWI positionne l et F à 1 {pas SWI2 ou SWI3) 

8 Valeur de H non définie 

9. cas spécial pour MUL:1-C si bit 7 1 
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Annexe 4 


Adressages indexés et 
relatifs — conversions 
décimal/hexa 
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* 


SAUIVIN3IW3IddNS S13190.0 3H8MWON : 
SIUHIVINIWJIddnS 531949 30 3H8WON: 


SiL 

n@lL 
A IQ:ut 
qua1a}jtpul : x X+ DO:'UU 
SnonAx 


! 


AE DEL © Re 

ef ou me u ufif couv [ue | woige | 
Dofo) mou | iu--1 [off mom | u-- TAG iuowereg 
TT ponte fofe] coma [| u | 7eme | 
ofef om | 1erui [ofef som | +9 | 7eme | 
PTT poemes Joel ou [ + | 1eveuenu {y wauesegueuemu onv 
Cf um | ea Lofef moour | ua | #0 80 9 
ofrf oo | me) fofif oo | ue | ose 
ofrf oo [uw [off onu | uv | sou v 
Ref ooume mu Lafrf room | ru | woren | 
Ho onu Leu Lift] von | ue | roues | 


CT roscamme off wwe [Eu | icies | 
Cu LT fofo um | + CITET 
k& 


uu0 # = epo) do Wi04 
1S0d 13[qwWe8SSy + + a1Aqi504 18/qwW8ssy 
4 st 


198,/pPU[ UON 


SSe:pPy 118 91 128J1pu, pepuelx3 
(Si8S}}O iueweldu07 5,7] 


Dd 4013 185}JO IU8ISU0T 


(1850 iuawe[duuo7 S,Z) 
# WOJ4 1850 1018/NWNn99Y 


(Si25}O iu8waidWw07 SZ) 
# WO14 185}JO 1U8ISUOT 


sw:04 


saX2pul S23esSS21pY ‘L 


LA 
o 
= 


vl+ 
gpl + 
t6+ 
gt + 
+ 
vr+ 
gr + 
zL+ 


IT tt 
CA 8€ — 
€ — C'Ee 
69 — N— 
68 — 98 — 
(du 7h 
£ll— B8tl— 
gzl+ 2e + 
«bu + gg + 
16 + 6 + 
Gt + vor 
66 + 86 + 
Ev + As 
LT+ 92 + 
L+ pt + 


L— 
LE 
6£— 
66 — 
Li 
L8— 
BL — 


6il— 


il + 
GbL + 
68+ 
L'Es 
LS + 
1 + 
Se + 
6 + 


8g— 
tt 
Êt — 
86 — 
te 
88— 
vôl — 
Æl- 


pri + 
vôl + 
88 + 
tt+ 
96 + 
l1 24 
vr+ 
8 + 


6— 
Lib 
lv — 
11 he 
£t— 
68 — 
GBl — 
Ti - 


61 + 
Ep + 
L8+ 
+ 
56 + 
6€ + 
Et + 
L+ 


1e 
gi 
Tv 

86 — 
ve 
6 + 
gpl — 
Etk— 


ÊL= 
LT 
Et - 
66 — 
CT Un 
16 

tél 
LrAl 


ti - 
gt — 
|) 
59 — 
JÉT 
t6= 
88l - 
vel 


gil + 
gAl + 
v8 + 
89 + 
Ca+ 
9€ + 
pe + 
+ 


LA 
6T — 
Gt — 
19 

Le= 
€6 — 
6f1 — 
Gal — 


Gil + 
66 + 
8 + 
193 + 
(L'S 
GE + 
6U + 
£ + 


pi 
PE — 
9v — 
td 
BL — 
?6 — 
Dit — 
gzl — 


vil+ 
86 + 
T8 + 
99 + 
26 + 
pe + 
gi + 
t + 


(1e, 
IE — 
LA di 
Eg— 
6£— 
66 — 
Li 
KA am 


4 1) Fa 
L6 + 
18 + 
| 
6v + 

+ 

+ 


EE 


gl 
TE — 
8p— 
ÿg — 
18 — 
86 — 
Tli— 
8zL — 


CELL 
96 + 
pe + 
vga + 
Bt + 
LE 
gl 
L 


SmAmOoaQue 


B-Nnmneunuwr 


EMI) 
al 
ENT) 
LA 


SJlje[92 SO8eSS91PY ‘'Z 
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3% Conversion décimal/hexa 


Chiffre hexadécimal | 
3 2 1 
DEC. HEXA DEC. HEXA DEC. 
(e) (e) (re) [e) F) () ) 
1 L 256 1 16 L L 
2 2 512 2 32 2 2 
3 3 768 3 48 3 3 
4 4 1924 4 64 4 4 
5 5 1280 5 80 5 5 
6 6 1536 6 96 6 6 
7 7 1792 7 112 7 7 
8 8 2048 8 128 8 8 
9 9 2304 9 144 9 9 
A A 2560 A 169 A 19 
B B 2816 B | 176 B 11 
C C 3072 C | 192 C 12 
D D 3328 D 208 D 13 
E E 3584 E 224 E 14 
F F 3840 F 240 F 15 
Conversion décimal/hexa — Branchements relatifs longs 
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Annexe 5 
Code ASCII 


F I 
Code [Code Code [Code Code |Code 
décimalihexa décimal\hexa Idécimal|hexa 
| L 

@ |@09 NUL 42 |2A |»« 85 | 55 U 

L og? 43 28 |+ 86 56 V 
2 O2 STOP clavier 44 2C 87 57 wW 
3 @3  CONT/C clavier 45 |2D |— 88 | 58 X 
4 o4 46 2E : 89 59 Y 

5 95 a7 2F / 90 5A Z 

6 96 48 39 |Q@ 91 58 [ 

7 @7 SONNETTE 49 31 1 92 5C à 

8 |98 8S(+clavier) 59 |32 }2 93 | 5D | 

9 99 HT(-clavier) 51 33 3 94 5E T 
19 GA LF( { clavier) 52 34 a 95 5F — 
11 |@B VT(T clavier) I] 53 135 15 96 | 69 — 
12 OC  RAZ clavier || 54 36 6 97 61 a 
13 OD ENTREE clavier 55 37 7 98 62 b 
14 |@E SO (semi graphique) 56 |38 |8 99 | 63 c 
15 |@F  Si(alphanumérique) 57 |39 |9 | 100 | 64 d 
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I 
Code Code Code |Code 
écimal hexa décimal\hexa 

10 : 191 e 

11 | DC1 (clignot. curseur) : 192 f 

12 | DC2 (répétition) < | 193 g 

13 = 194 h 

14 | DCA (arrêt curseur) > 195 i 

15 ? | 196 | 6A j 

16 | SS2 (car. accentués) @ 107 |68 k 

17 A 108 6C | 

18 | CONT/X clavier (efface B 199 | 6D m 

fin ligne) C | 119 |6E m 

19 | D | 111 |6F o 

1A E | 112 [70 | p 

18 | ESC F | 113 q 

1C | INS clavier G 114 | 72 r 

1D | EFF clavier H 115 | 73 s 

1E 9 clavier I 116 | 74 t 

31 1F | US J 117 175 u 
32 2 | Espace K 118 | 76 v 
33 21 I L 119 | 77 w 
34 22 |” M 120 | 78 x 
35 23 | # N 121 179 y 
36 24 |S O 122 | 7A Z 
37 25 | % P 123 | 7B { 
38 26 | & Q 124 | 7C | 
39 27 R 125 | 7D } 
49 28 |{ S 126 |7E —= 
at 29 |) T 127 17F = 
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Annexe 6 
Instructions BASIC 


Non Code Adresse f NES Code Adresse 

hexa hexa hexa hexa 

ATTRB A8 3316 | MERGE B4 | 2E91 
AUTO 9A 131D | MIDS FF9C 1100 
BEEP A3 35E6 MOTOR AQ 3AF8 
BOX A6 3597 NEW B1 4B6 

| BOXF A646 3597 NEXT 82 1605 
| CLEAR AE 57B OFF C3 3AF8 
CLOSE B6 2DD9 | ON 96 36B5 
CLS 9D 35E8 | OPEN B5 2E0D 

: COLOR A4 33D5 PEN B8 3635 
| CONSOLE 9E 3353 PLAY B9 3F14 
CONT AC 568 POKE AA F1F 
DATA 83 663 | PRINT AB F78 
DEF A9 1891 PSET 9F 34EC 

| DEFDBL 95 1285 READ 85 2805 
DEFINT 93 12AF | REM 8c 666 
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Nom 


DEFSNG 
DEFSTR 
DELETE 
DIM 
ELSE 
END 
ERL 
ERR 
ERROR 
EXEC 
FOR 
GO 

IF 
INPEN 
INPUT 
LET 
LINE 
LIST 
LOAD 
LOCATE 


l 


Adresse Nos Code 
hexa hexa 
1282 ! (3A)8D 
12AC RESTORE 8A 
12F0 RESUME 99 

AQ1 RETURN 88 
68E RUN 88 
538 SAVE B2 
7C2 SCREEN FFA4 
786 SKIPF A‘ 
1799 STEP C6 
378F STOP 8E 
1578 SUB BC 
696 THEN Ca 
697 TO BB 
36E7 TROFF 91 
27A5 TRON 99 
722 UNMASK A7 
34F5 WAIT 97 
2C74 WEND BQ 
2E99 WÆHILE AF 
32E2 


Adresse 
hexa 


666 
527 
17A4 
649 
5F2 
2CB3 
33CC 
39C1 
15D7 
544 
GE 
GAC 
69A 
139F 
139E 
3453 
F29 
6236 
6233 


REMARQUE: La table des noms d'instructions commence en $0092, celle 
des adresses en $26B (utilisée en $2B25). 


Les instructions MID$, INPUT et SCREEN sont décodées en $2B4E. 


Les variables ERL et ERR sont traitées par la routine $770. 
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Annexe 7 


Fonctions BASIC 


+ 


Code Adresse 
Nom 

hexa hexa 
ABS FF82 | 1CD5 
ASC FF8E | E4F 
CDBE FF93 2518 
CHR$ FF8F E38 
CINT FF91 24C3 
COS FF87 2689 
CSNG FF92 252B 
CSRLIN FFA2 35F7 
EOF FF99 3066 
EXP FF86 23F8 
FIX FF94 1D61 
FN BD 623C 
FRE FF83 C36 
GRS$ FF99 3781 
HEXS FF95 1164 


Non Code Adresse 
hexa hexa 
Ê L 
MIDS FF9C E7E 
OCTS FF96 1165 
PEEK FFBA F15 
POINT FFA3 345A 
POS FFAS 30D4 
PTRIG FFA6 3630 
RIGHTS FF9B E77 
RND FF9F 2470 
SCREEN FFA4 3462 
SGN FF80 ICBE | 
SIN FF88 268F | 
| SPCI BE 191F | 
SOR FF84 2388 | 
STICK FF97 3617 
.STRIG FF98 3627 | 
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Adresse 
hexa 


INKEYS$ 
INPUT 


INSTR 
INT 
LEFT$ 
LEN 
LOG 


REMARQUE : La table des noms des fonctions commence en $1CF, celle des 
adresses en $0020 (utilisée en $2A93). 


FN et USR sont décodés par la routine $77@. 


Adresse 
hexa 


C64 
F41 
26DA 
1493 
182C 
EC3 
17EA 


SPC.TAB et USING sont traitées par l'instruction PRINT ($F78). 
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Annexe 


6 


Les Opérateurs BASIC 


Opérateur 


Concaténation 
Puissance 
—  unaire 


Division 
Multiplication 
Division entière 
Reste 

Addition 
Soustraction 
Supérieur à 


Egal à 


T 


Code | Priorité | Adresse 
Symbole hexa hexa | hexa Notes 

+ C7 DBB | Décodée en $85B; 
pour chaînes 

T CB 7F 2391 | Opérandes traités en 
$8F3 

— C8 7D 25F3 | Décodé par $770 
en $789) 

/ CA 7C 920 

# C9 7C 2586 

@ D2 7B 2635 

MOD D1 7A 265C 

+ C7 79 2599 

— c8 79 2582 

pe D3 64 266D | Traité en $97A 
(par $99C) 

= D4 64 266D |Idem 
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Opérateur Symbole 
Sup.ou égal à 
Inférieur à 
Différent de 
Inf. ou égal à 
Complément 


ET 
OU 

OÙ exclusif 
Equivalence 
Implication 


D5 


D5D3 
D5D4 


C5 


CC 
CD 
CE 
CF 
DO 


Priorité 
hexa 


64 
64 
64 
64 
5A 


50 
46 
3C 
32 
28 


Adresse 
hexa 


Notes 


266D 
266D 
266D 
266D 

7A3 


9E5 
SEA 
9EF 
9F4 
9F9 


Idem 

Idem 

Idem 

Idem 

Décodé par $770 
(en $79F) 


REMARQUE: La table des opérateurs (priorité et adresse) commence en 


$O06E. 


Le — unaire et NOT sont traités par la routine $77@. 


Les opérateurs de relation sont décodés en $834 (routine $81A). 
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Annexe 9 


Principales adresses 


du BASIC 


Adresse e sn Commentaire sur le contenu 

$6102 1 Nombre d'indices d'un tableau 

$6194 1 différent de @ pour l'instruction DIM 

$6105 1 type d’une valeur 

$6107 L contient 1 si on veut l'adresse du début d'un tableau 

$611C 2 Adresse 1°'° instruction du programme ($65F5) 

$611E | 2 Adresse début zone des variables 

$6120 2 Adresse début zone des tableaux 

$6122 2 Adresse début zone libre 

$6124 2 Adresse du fond” de la pile système 

$612A 2 Adresse fin zone des chaînes 

$612C 2 Numéro de la ligne courante du programme (ou 
&HFFFF si on est en mode direct) 

$6130 2 Valeur d'une étiquette de branchement 

$6138 2 Pointeur de ligne de DATA 

$613D 2 Adresse de la valeur d'une variable 

$613F 2 Adresse où l'on doit affecter une valeur 
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Nombre ; 
o Commentaire sur le contenu 


Adresse 


d'octets 
$6155 8 Accumulateur flottant (FAC) 
$615D 1 Signe de la valeur située dans FAC 
$6163 9 Second accumulateur flottant (et signe) 
$6186 1 Différent de Ÿ en mode trace (TRON) 
$618C 2 Adresse du sommet de la pile (valeur de S) 
$61A2 1 Différent de 9 en mode protégé 
$61B9 2 Adresse du caractère courant du programme 
$61CA 3 Contient JMP $7E9 (vérifie qu'on a une virgule) 
$61CD 3 Contient JMP $2592 (Détermine le type d'une valeur) 
$61D9 3 Contient JMP $7EB (vérifie la syntaxe) 
$6201 1 Nombre des instructions et opérateurs BASIC 
$6292 2 Adresse de la table des instructions 
$6204 2 Adresse table des adresses de traitement des 
instructions 
$6206 1 Nombre des fonctions BASIC 
$6207 2 Adresse de la table des fonctions 
$6209 2 Adresse de la table des adresses de traitement des 
fonctions 
$6233 3 Traitement de WHILE (JMP $7F3 : SN Error) 
$6236 3 Traitement de WEND (Idem) 
$6239 3 Traitement de DEFFN (Idem) 
$623C 3 Traitement de FN (Idem) 
$626D 320 Points de contrôles de diverses routines 


# 
$62AC 1 Nombre de caractères dans le buffer d’'E/S (cassette) 
$62AD 2 Adresse du caractère courant du buffer d'E/S 
$6282 255 Buffer d'E/S (cassette) 
$6445 255 Buffer d'entrée par le clavier 
$657A 16 Nom d'une variable ou d’un tableau 
$65AC 2 Avant dernière adresse de la RAM 
$65B1 1 Code de la dernière touche enfoncée au clavier 
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Annexe 10 


Principales routines 
du BASIC 


Adresse 
hexa 


Commentaire Page 


Recherche dans la pile le FOR associé au NEXT 
rencontré: nine laine nan ie aie PAC 
Test de dépassement de capacité mémoire (OM Error) 


Traitement de l'erreur dont code dans B ............ 55 
4A0 Recherche d'un numéro de ligne 
66B Recherche de la fin de l'instruction courante . ........ 70 
66E Recherche de la fin de la ligne courante ............ 70 
6FD Calcul d’une étiquette (numéro de ligne) 
734 Conversion et rangement d'une valeur (numérique ou 

Chaine): 41m rar une un nie nanas de mette 62 
770 Calcul de la valeur d'un opérande ................. 64 
7EB Contrôle de syntaxe : caractère suivant—+A ........... 63 
800 Valeur (adresse si chaîne) d'une variable-Accu. 

flottant FAC 
81A Calcul d'une expression, retournée dans FAC ....-... 63 
8BD Permutation des 2 accus. flottants (FAC en 


$6155, et $6163) 
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Commentaire 


Page 0: 


Recherche (et création éventuelle) d'une variable ou 
d'un élément de tableau ........................ 
Calcul d’une valeur entière positive, retournée dans 
$6157,58 

Registre D-$6157,58 : #92-+$6105 (type entier) 
Affichage du caractère dont code dans A 

Recherche du WEND associé au WHILE rencontré .... 
Recherche du NEXT associé au FOR rencontré ....... 
Chargement du 2d Accu. flottant ($6163) avec une 
valeur réelle 

Chargement de FAC avec une valeur (adresse dans X) 
Inverse de 1C02 : FAC-»mémoire 

2d accu. flottant-FAC 

Inverse de 1C64 : FAC-2d accu. flottant 

Test de valeur logique FAUX ‘’(@) dans FAC (-Z=1) 
Affichage de la valeur contenue dans D 

Détermination du type d'une valeur (positionne CC) ... 
Conversion en cas de mélange de type 

Boucle d'exécution des programmes ............... 
Traitement des instructions ...................... 
Traitement des coordonnées d'un point graphique 
Traitement des paramètres des instructions graphiques 


Adresse 
hexa 


60 


74 
74 


63 


55 
53 


76 


Commentaire 


61B2($82) 
61B8($B8) 
61CA($CA) 
61CD($CD) 
61D6{($DG) 


Caractère courant suivant retourné dans À .......... 
Caractère courant retourné dans À ................ 
Vérifie que ”,"”"; caractère suivant 

Branche en $2502 (détermination d'un type) 

Branche en $7EB (contrôle de syntaxe) 

Reserens 


REMARQUES : A,B,CC et X désignent les registres du 6899 


FAC désign 
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e l'accumuilateur flottant,situé en $6155 
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